Busquedas en Vb6
Hola
La pregunta es la siguiente:
Tengo un formulario con dos texbox, en los cuales ingreso una fecha inicial y una fecha final, y deseo que en otra forma aparezca el resultado de esa sentencia en una grilla. Y No se que controles utilizar para que me de el resultado correcto.
¿Podrías ayudarme al respecto?
La pregunta es la siguiente:
Tengo un formulario con dos texbox, en los cuales ingreso una fecha inicial y una fecha final, y deseo que en otra forma aparezca el resultado de esa sentencia en una grilla. Y No se que controles utilizar para que me de el resultado correcto.
¿Podrías ayudarme al respecto?
Respuesta de marcosz
1
La forma de hacerlo es la siguiente:
En lugar de usar los controles de texto, puedes usar un control especial para manejar fechas y se llama DTPicker.
Colocas el control y en tiempo de diseño le das el formato que quieres que tenga tu fecha(maneja todas las que te puedas necesitar), además despliega un calendario en tiempo de ejecución.
Para agregar el control seleccionas en la lista de controles de Vb el que dice Microsoft Windows Common Controls-2 6.0
Spongamos que la fecha de inicio está en el control dtpInicio y la final en el dtpFin
Cuando llames a la forma donde mostrarás el grid haces esto
Declaras una variable global
Public gCadSQL as String
Private Sub cmdBuscar_Click()
gCadSQL = "Select * From Tabla Where Fecha Between '" & Format(dtpInicio,"yyyy/mm/dd") & "' And '" & Format(dtpFin,"yyyy/mm/dd") & "'"
Form2.Show vbModal
End Sub
En la forma 2 debes tener un AdoDataControl y un DataGrid(Llamado en los componentes como "Microsoft DataGrid Control 6.0". El AdoDataControl ligado al DataGrid.
Private Sub Form_Load()
Adodc1.RecordSource = gCadSQL
'demas instrucciones para Ado.
.
.
.
End Sub
Si tienes alguna duda en específico dímelo
En lugar de usar los controles de texto, puedes usar un control especial para manejar fechas y se llama DTPicker.
Colocas el control y en tiempo de diseño le das el formato que quieres que tenga tu fecha(maneja todas las que te puedas necesitar), además despliega un calendario en tiempo de ejecución.
Para agregar el control seleccionas en la lista de controles de Vb el que dice Microsoft Windows Common Controls-2 6.0
Spongamos que la fecha de inicio está en el control dtpInicio y la final en el dtpFin
Cuando llames a la forma donde mostrarás el grid haces esto
Declaras una variable global
Public gCadSQL as String
Private Sub cmdBuscar_Click()
gCadSQL = "Select * From Tabla Where Fecha Between '" & Format(dtpInicio,"yyyy/mm/dd") & "' And '" & Format(dtpFin,"yyyy/mm/dd") & "'"
Form2.Show vbModal
End Sub
En la forma 2 debes tener un AdoDataControl y un DataGrid(Llamado en los componentes como "Microsoft DataGrid Control 6.0". El AdoDataControl ligado al DataGrid.
Private Sub Form_Load()
Adodc1.RecordSource = gCadSQL
'demas instrucciones para Ado.
.
.
.
End Sub
Si tienes alguna duda en específico dímelo
Hola
Efectivamente en el Adodc1 es donde esta el error, ¿con qué propiedades se configura para no marcar error..? Y verse el resultado en la grilla
Efectivamente en el Adodc1 es donde esta el error, ¿con qué propiedades se configura para no marcar error..? Y verse el resultado en la grilla
'Estableces la cadena de conexión
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\Nwind.mdb;Persist Security Info=False"
O lo que es mejor,
'Cadena de conexión usando el objeto App.Path que toma el directorio donde fue instalado el sistema.
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Nwind.mdb;Persist Security Info=False"
'Tabla(s)
Adodc1.RecordSource = "Select * From Empleados"
Si es SLQ Server
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=UsuarioX;Initial Catalog="Nwind;Data Source=ServidorX"
Esto podría estar en el evento "Load" de la forma y al cargarse traería estos datos.
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\Nwind.mdb;Persist Security Info=False"
O lo que es mejor,
'Cadena de conexión usando el objeto App.Path que toma el directorio donde fue instalado el sistema.
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Nwind.mdb;Persist Security Info=False"
'Tabla(s)
Adodc1.RecordSource = "Select * From Empleados"
Si es SLQ Server
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=UsuarioX;Initial Catalog="Nwind;Data Source=ServidorX"
Esto podría estar en el evento "Load" de la forma y al cargarse traería estos datos.
