[vb6] Connesione Sql Server 2005

[gioviskius]

Ciao a tutti,

Sono un NEO programmatore di vb6, e premetto che non ne so molto , e per questo chiedo il vostro aiuto.

Problema : Connessione da vb 6 a sql server 2005

Domanda 1: Devo utilizzare un componente (oggetto) particolare?? io ho usato "Microsoft FlexGrid 6.0" in cui ho messo questo codice:

Private Sub Form_Activate()

Cn As ADODB.Connection
Set Cn = New Connection
Cn.ConnectionString = "Provider = SQLNCLI.1; Integrated Security = SSPI;" & _
"Persist Security Info = False;" & _
"AttachDBFileName =" & App.Path & "E:\Programmi\Microsoft SQL Server\MSSQL.1\MSSQL\Data\U_OLIFI_data.mdf; Data Source = STEFANO-XP\STEFANO_XP"
Cn.Open

Rs As Recordset
Set Rs = New Recordset
Rs.Open "Select * from CA_ANAGRAFICHE", Cn
Set MSFlexGrid1.DataSource = Rs

End Sub


Quando eseguo il programma mi dice:

"Istruzione non valida all'esterno del blocco Type" --> evidenziando la prima riga:

Cn As ADODB.Connection


Grazie in anticipo

[LeleFT]

Sposto nel forum di VB e .NET.
PS: usa i tag CODE per il codice, come espressamente richiesto e spiegato nel regolamento interno delle sezioni.


Ciao.

[Jeremy75]

Cn As ADODB.Connection

diventa

Dim Cn As ADODB.Connection

[gioviskius]

Grazieeeeeee mille.
ci sono riuscito pero ora ho un altro problema. Qui ti metto il codice che ho scritto con l'errore che mi da (in fondo al post)


************************************************** *****

Option Explicit

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSql As String
__________________________________________________ _____________________



Private Sub Command1_Click()

cn.ConnectionString = "PROVIDER=SQLNCLI;SERVER=STEFANO-
XP\STEFANO_XP;Database=U_OLIFI;uid=sa;pwd=stefano; "
cn.Open
sSql = ""
sSql = sSql & "SELECT *" & vbCrLf
sSql = sSql & "FROM CA_ANAGRAFICHE" & vbCrLf


Set rs = cn.Execute(sSql)

While Not (rs.EOF)


Wend
rs.Close

End Sub_______________________________________________ _______________________

ERRORE : "Variabile oggetto o variabile del blocco With non impostata" evidenziando questa stringa:

cn.ConnectionString = "PROVIDER=SQLNCLI;SERVER=STEFANO-XP\STEFANO_XP;Database=U_OLIFI;uid=sa;pwd=stefano; "


Grazie ancora

[oregon]

Manca la creazione dell'istanza della connessione

Set cn = New ADODB.Connection


P.S. Per problemi diversi, dovresti aprire thread diversi ... non importa se il programma è il medesimo ...

[gioviskius]

OK GRAZIE...

SONO NUOVO

CMQ CI SONO RIUSCITO ED ERA PROPRIO COME DICEVI TE


CIAO CIAO