SQL Connessione

[cla80]

Voglio collegare al text1.text il campo della tabella ANACF chiamato INDIRIZZO_ANAGRAFICA (il tutto con SQL Server 2000 nel db Darsena)

Ecco il codice:

Private Conn As ADODB.Connection
Private rsConn As ADODB.Recordset

Private Sub Command1_Click()
Conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Darsena;Data Source=2000PROF\ALPHATEAM"
rsConn.Open "SELECT * FROM ANACF"
Text1.Text = rsConn.Fields("INDIRIZZO_ANAGRAFICA")
End Sub

L'errore è nel Conn.ConnectionString.

volevo sapere, salto qualcosa e poi , cosa sbaglio???

[cla80]

nessuno mi sa dare un aiutino??????

[ale500]

per sql 2000 ci vuole l'MDAC 2.7,

per recuperare la stringa di connessione inserisci nel tuo progetto l'oggetto ado, poi fai tasto dx sopra di esso e poi crea ConnectionString

[cla80]

l'ho fatto ma non funziona ugualmente.

[ale500]

in Access nella ConnectionString io metto solo il provider ed il source, non so se per l'SQL 2000 può andare uguale...

PS
il DB è in locale o in remoto???

[cla80]

è locale, (solo locale) vi prego voglio effettuare solo la connessione.

[ale500]

questo è un esempio di una apertura di un db in Access tu hai soltanto dischiarato la connection string ma non l'hai aperto Conn.Open

db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\biblio.mdb;"
db.CursorLocation = adUseClient
db.Open 

e comunque devi dargli il nome del DB.l'estenzione

nel mio caso biblo.mdb

[xegallo]

x cla
l'errore non è nella striga di connessione
l' errore è che vuoi aprire un recodset senza aprire la connessione e perdi+ senza specificargli a che connessione fa riferimento

x Ale

il provider jet funziona solo per access

[cla80]

Ho installato MSDAC 2.7, poi ho creato questo codice:

Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Darsena;Data Source=2000PROF\ALPHATEAM"
Set rs = New ADODB.Recordset
rs.Open "select * from tblAree"
Do While Not rs.EOF
 Debug.Print rs!Descrizione
Loop
rs.Close
Set rs = Nothing
End Sub

Cosa Sbaglio?

[xegallo]

Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.connectionstring =  "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial 
Catalog=Darsena;Data Source=2000PROF\ALPHATEAM"
cn.open
Set rs = New ADODB.Recordset
rs.Open "select * from tblAree",cn
Do While Not rs.EOF
 Debug.Print rs!Descrizione
Loop
rs.Close
Set rs = Nothing
End Sub