Visual Basic 6 Data Grid Problem

[leukonas]

Exo mia basi se sql server kai thelo na blepo ta dedomena mesa se mia forma tis vb.Kano tin sindesi me ton sql server xrisimopiontas ado(2.6 version).Alla exo xasei tin mpala sto pos probalo ta dedomena.Ti object na xrisimopiiso?Dokimasa me to datagrid alla epeidi to fortoma ton dedomenon ginete me kodika kai dino to recordsource me kodika eno trexei i efarmogi xtipaei.Ti kano lathos?

 

 

Private Sub cmdconnect_Click()

Dim sql As String

Set con = New adodb.Connection

con.Open ("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=zeus")

 

sql = "select * from customers"

Set rs = New adodb.Recordset

Call rs.Open(sql, con)

 

'While Not rs.EOF

Set dg.DataSource = adodb.Recordset <<--edo xtipaei.

'Wend

 

End Sub