diferencia entre 2 datagrids

12/05/2005 - 10:40 por Sonia | Informe spam
hola, tengo un form q tiene q rellenar un mismo datagrid con 2 botones
diferentes,
en uno rellena todo el datagrid con todos los datos q hay en la tabla y el
2º solo los de una fecha introducida en un textbox(una columna de la tabla)

el problema es en q el codigo es igual , solo cambiando lo de la fecha, y el
1º va perfecto y el 2º no hya manera.
podeis echar un vistazo a ver si veis algo q este mal??

el error q me da en el 2º es:

'ESTE VA BIEN
Private Sub Butver_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Butver.Click

Dim nuevo As cargadatagrid

mysql = "select * from Datos"

nuevo.Carga2(mysql, "Datos", DataGridtodo)

DataGridtodo.ReadOnly = True

End Sub



'ESTA DA ERROR

Private Sub Butvista_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Butvista.Click

Dim nuevo As cargadatagrid

If TextBox1.Text <> "" Then

mysql = "select * from Datos where FECHA='" & TextBox1.Text & "';"

nuevo.Carga2(mysql, "Datos", DataGridtodo)

DataGridtodo.ReadOnly = True

End If

End Sub



' EL ERROR Q DA ES ESTE:

'system.data.oledb.oledbexception: el motor de la bd microsoft jet no puede
encontrar la tabla o consulta de entrada 'datos'. Asegurese de q existe y q
su nombre esta escrito correctamente'
 

Leer las respuestas

#1 Steven Lewis
12/05/2005 - 12:44 | Informe spam
Trata quitando el ';' al final de la sentencia SQL cuando usas la fecha.

Salu2

Steven Lewis

"Sonia" escribió en el mensaje
news:
hola, tengo un form q tiene q rellenar un mismo datagrid con 2 botones
diferentes,
en uno rellena todo el datagrid con todos los datos q hay en la tabla y el
2º solo los de una fecha introducida en un textbox(una columna de la
tabla)

el problema es en q el codigo es igual , solo cambiando lo de la fecha, y
el
1º va perfecto y el 2º no hya manera.
podeis echar un vistazo a ver si veis algo q este mal??

el error q me da en el 2º es:

'ESTE VA BIEN
Private Sub Butver_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Butver.Click

Dim nuevo As cargadatagrid

mysql = "select * from Datos"

nuevo.Carga2(mysql, "Datos", DataGridtodo)

DataGridtodo.ReadOnly = True

End Sub



'ESTA DA ERROR

Private Sub Butvista_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Butvista.Click

Dim nuevo As cargadatagrid

If TextBox1.Text <> "" Then

mysql = "select * from Datos where FECHA='" & TextBox1.Text & "';"

nuevo.Carga2(mysql, "Datos", DataGridtodo)

DataGridtodo.ReadOnly = True

End If

End Sub



' EL ERROR Q DA ES ESTE:

'system.data.oledb.oledbexception: el motor de la bd microsoft jet no
puede
encontrar la tabla o consulta de entrada 'datos'. Asegurese de q existe y
q
su nombre esta escrito correctamente'


Preguntas similares