quiero mandar los datos de un recordset a la datagrid les coloco el codigo por si e pueden ayudar
Gracias
Option Explicit
Private cnn As adodb.Connection
Private rst As adodb.Recordset
Private rst2 As adodb.Recordset
Private Sub cboFaenas_Click() 'combobox1'
Dim sqlcod
Set rst = Nothing
Set rst = New adodb.Recordset
cboMaq.Clear
sqlcod = "SELECT codmaq FROM faenas,maquinaria WHERE (FAENAS.faena = '" & cboFaenas.Text & "')and (FAENAS.codigo=MAQUINARIA.codfae)ORDER BY CODMAQ ASC"
rst.Open sqlcod, cnn
While rst.EOF = False
cboMaq.AddItem rst.Fields("codmaq")
rst.MoveNext
Wend
End Sub
Private Sub cboMaq_Click() 'combobox2'
Set rst2 = Nothing
Set rst2 = New adodb.Recordset
Dim sqlhrs, adusecliente
Adodc1.Refresh
sqlhrs = "SELECT fecha,horoinicia,horofin,totalhrs FROM HORASMAQ WHERE (codmaq='" & cboMaq.Text & "')"
rst2.CursorLocation = adusecliente
rst2.Open sqlhrs, cnn
Set DataGrid1.DataSource = rst2
rst2.Update
'datagrid.refresh o datagrid.update
End Sub
Private Sub Form_Load()
Dim tField As adodb.Field
Dim sqlhrs, sqlfaenas
'
' Por si ya estaba abierta...
Set cnn = Nothing
Set rst = Nothing
'
' Crear los objetos
Set cnn = New adodb.Connection
Set rst = New adodb.Recordset
'
' abrir la base usando las credenciales de Windows
cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=ESTUBIMAQICEM;Data Source=SERVER_WEB"
sqlfaenas = "Select * FROM FAENAS Order by codigo"
' abrir el recordset indicando la tabla a la que queremos acceder
rst.Open sqlfaenas, cnn
' Asignar los nombres de los campos al combo
Do While rst.EOF = False
cboFaenas.AddItem (rst.Fields("FAENA"))
rst.MoveNext
Loop
' Cerrar el recordset y la conexión
rst.Close
End Sub
