No enlaza el Datagrid
tengo un DataGrid y quiero cargar los resultados de una consulta con una base de datos SQl la cual esta conectada con un DataEnvironmente, no quiero generar un Comando, lo que estoy haciendo son Consultas las cuales cambiares la parte del Where dependiendo de las opciones del Filtro
les paso el codigo
selecnormal:
Dim str As String
Dim STR1 As String
STR1 = "SELECT CodCont, CodCat, NomCategoria, CodRub, NomRubro, Codemp, NomEmpresa, CodProf, Codpues, Nombre, Apellido, COMENTARIOS , Alta, CodUsu, FechaModif, Codusu1 FROM Contacto"
If On1.Value = True Then
If NombreB = "" Then
MsgBox "Ingrese un Nombre"
Exit Sub
Else
str = STR1 + " WHERE (Nombre LIKE '" & NombreB & "%')"
Text.Text = str
GoSub consultar
End If
ElseIf On2.Value = True Then
End If
consultar:
Set Temporal = New ADODB.Recordset
If Temporal.State = 1 Then
Temporal.Close
End If
Temporal.Open str, DE.Agenda
'Set Temporal = DE.Agenda.Execute(str)
a = Temporal.RecordCount
Set DataGrid1.DataSource = DE
DataGrid1.DataMember = "Temporal"
Exit Sub
Return
Como veran trabajo con 2 String el del Select y despues le cambio el Where, el Recordset me tira resultados todo va bien lo unico que no sucede es a la hora de enlazar el resultado del Recordset con el grid ya probe Requery Refresh, DE TODO ¡¡¡¡¡ alguna sugerencia
les paso el codigo
selecnormal:
Dim str As String
Dim STR1 As String
STR1 = "SELECT CodCont, CodCat, NomCategoria, CodRub, NomRubro, Codemp, NomEmpresa, CodProf, Codpues, Nombre, Apellido, COMENTARIOS , Alta, CodUsu, FechaModif, Codusu1 FROM Contacto"
If On1.Value = True Then
If NombreB = "" Then
MsgBox "Ingrese un Nombre"
Exit Sub
Else
str = STR1 + " WHERE (Nombre LIKE '" & NombreB & "%')"
Text.Text = str
GoSub consultar
End If
ElseIf On2.Value = True Then
End If
consultar:
Set Temporal = New ADODB.Recordset
If Temporal.State = 1 Then
Temporal.Close
End If
Temporal.Open str, DE.Agenda
'Set Temporal = DE.Agenda.Execute(str)
a = Temporal.RecordCount
Set DataGrid1.DataSource = DE
DataGrid1.DataMember = "Temporal"
Exit Sub
Return
Como veran trabajo con 2 String el del Select y despues le cambio el Where, el Recordset me tira resultados todo va bien lo unico que no sucede es a la hora de enlazar el resultado del Recordset con el grid ya probe Requery Refresh, DE TODO ¡¡¡¡¡ alguna sugerencia
cambia por esto
Temporal.Open str, DE.Agenda,AdOpenStatic
Set DataGrid1.DataSource = Temporal
Temporal debe ser un recordset general del formulario y no local de la rutina, porque cuando la rutina termina, Temporal se descarga y desaparecen los datos de tu grid
Espero que sirva
Saludos
Temporal.Open str, DE.Agenda,AdOpenStatic
Set DataGrid1.DataSource = Temporal
Temporal debe ser un recordset general del formulario y no local de la rutina, porque cuando la rutina termina, Temporal se descarga y desaparecen los datos de tu grid
Espero que sirva
Saludos