Conexion VB6.0 con SQL

Miguel Angel
05 de Julio del 2005
porfavor quisiera que alguien me ayude hacer una conexión de VB 6.0 con una base de datos SQL, y que los datos se muestren en una DataGrid o grilla de un formulario

Fernando
05 de Julio del 2005
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.ConnectionString = "Driver={SQL Server};Server=server_name;Database=db_name;Uid=user_name;Pwd=user_pass"
cn.CursorLocation = adUseClient
cn.Open

Set rs.ActiveConnection = cn
rs.CursorType = 3
rs.LockType = 3
rs.Source = "SELECT * FROM tabla"
rs.Open

Set DataGrid1.DataSource = rs
rs.Close
cn.Close
Set rs=Nothing
Set cn=Nothing