VB6 + SQL Server 2000

[cla80]

Buonasera a tutti.
Volevo sapere se conoscete degli esempi di applicativi sorgenti realizzati in VB che interagisce con SQL Server 2000 o 7.0.
Grazie
P.S. sorgenti non programmi gia realizzati.

Grazie a tutti davvero.

[darkblOOd]

fai prima a chiedere cosa ti serve no?

[sebamix]

http://www.planetsourcecode.com/vb/s...a=sql%5Fserver

[cla80]

...mi chiedono di dire cosa mi serve, volevo un esempio in modo tale che partendo da un db fatto con sql server, ipotizziamo una classica tabella di contatti (nome, cognome ecc. ecc. ) volevo sapere le classiche operazioni di inserimento, eliminazione, modifica, visualizzazione dei dati su db SQL Server 2000, partendo da textbox fatte con VB6.
Per ora so fare con Access, mentre con SQL Server 2000???

Aiuto.

[ladyBlu]

hai due possibilità:
1) utilizzare stringhe SQL costruite direttamente nel tuo programma in VB.
2) utilizzare StoredProcedure contenenti il codice che ti serve da chiamare con una semplice Execute nel tuo progetto.

[cla80]

un aiuto piu preciso in merito?

[ladyBlu]

ok.
TBEsempio
IdEsempio ---> long
TestoEsempio ---> string

Aggiungi, Modifica, Elimina direttamente da VB:

Dim miaSQL As String, mioEsempio As String, mioIDEsempio As Long
mioEsempio = txtEsempio.Text
'Aggiungi
miaSQL = "INSERT INTO TBEsempio(TestoEsempio) " & _
         "VALUES('" & mioEsempio & "')"

'oppure Modifica
miaSQL = "UPDATE TBEsempio " & _
         "SET TestoEsempio = '" & mioEsempio & "'" & _
         "WHERE IdEsempio = " & mioIDEsempio

'oppure Elimina
miaSQL = "DELETE * FROM TBEsempio " & _
         "WHERE IdEsempio = " & mioIDEsempio

'in tutti e tre i casi:
miaConn.Execute miaSql

Per utilizzare invece le StoredProcedure

devi creare le stored procedure direttamente sul database di Sql e poi richiamarle da vb così

miaConn.Execute "Exec NomeStoredProcedure"

Quindi
Aggiungi, Modifica, Elimina tramite StoredProcedure da VB prevedono il passaggio di parametri alle storedprocedure che richiami:

Dim miaSQL As String, mioEsempio As String, mioIDEsempio As Long
mioEsempio = txtEsempio.Text
'Aggiungi
miaSQL = "Exec NomeStoredProcedure '" & mioEsempio & "'"

'oppure Modifica
miaSQL = "Exec NomeStoredProcedure " & mioIDEsempio & " & _
         "'" & mioEsempio & "'"

'oppure Elimina
miaSQL = "Exec NomeStoredProcedure " & mioIDEsempio

'in tutti e tre i casi:
miaConn.Execute miaSQL

[Markho]

se sai usare access, sql server è molto simile... al massimo non usare le store procedure, che ti legano troppo al DB.......

ciao

[cla80]

1.Come fare per connettersi ad un database SQL SERVER 2000???????
2.Si puo creare una procedura che esporti da tabelle SQL a altro db (non Access, ne SQL Server) (uno esterno con formato XFD).
Grazie

[ladyBlu]

Originariamente inviato da cla80
1.Come fare per connettersi ad un database SQL SERVER 2000???????

se NON hai UserName e Password:

NomeServer = "mioServer"
nomeDB = "mioDatabase"
miaConn.ConnectionString = "driver={SQL Server};server=" & 
NomeServer & ";uid='';pwd'';database=" & nomeDB

se HAI UserName e Password:

NomeServer = "mioServer"
nomeDB = "mioDatabase"
UserID = "pippo"
miaPWD = "pluto"

miaConn.ConnectionString = "driver={SQL Server};server=" & 
NomeServer & ";uid=" & UserID & ";pwd=" & miaPWD 
& ";database=" & nomeDB

2.Si puo creare una procedura che esporti da tabelle SQL a altro db (non Access, ne SQL Server) (uno esterno con formato XFD).
Grazie

non lo so.