Estimados Colegas,
nuevamente recurro a su conocimiento para que puedan darme una mano con un proceso. Sigo trabajando en el proyecto del programa de trazabilidad animal para un criadero de chinchillas.
Ahora el problema me surge a la hora de tratar de mostrar los resultados de una consulta en un datagrid.
Aqui va el codigo,
La idea de este formulario es buscar a los animales por su nombre o por un rango de su fecha de nacimiento y luego del datagrid seleccionar cual es el animal elegido y con él volver al formulario anterior para realizar una actualización de datos.Código:
If chkfecnac.Value = 1 Then txtfecnacdes.Text = Format(txtfecnacdes.Text, "dd/mm/yyyy") txtfecnachas.Text = Format(txtfecnachas.Text, "dd/mm/yyyy") End If Dim con As ADODB.Connection Set con = New ADODB.Connection con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = Chinchisoft.mdb" con.Open Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.ActiveConnection = con rs.LockType = adLockOptimistic rs.CursorType = adOpenStatic frmbuscar.Height = 4860 If chknombre.Value = 1 Then rs.Open "SELECT * FROM Chinchilla WHERE nombre LIKE '%" & Trim(txtnombre.Text) & "%'" Set dgrbuscados.DataSource = rs dgrbuscados.Visible = True Else rs.Open "SELECT * FROM Chinchilla WHERE fecha_nacimiento > '%" & Trim(txtfecnacdes.Text) & "%' AND fecha_nacimiento < '%" & Trim(txtfecnachas.Text) & "%'" Set dgrbuscados.DataSource = rs dgrbuscados.Visible = True End If End Sub