system.NullReferenceException
No entiendo PORQUÉ me da este error ... mi base de datos está en mysql (la conecion la realiza con exito).
Ei codigo:
'USO de un DATASET
'creo la conexion
Dim con As New Odbc.OdbcConnection
con.ConnectionString = "STMT=;OPTION=3;DSN=LOCAL;integrated security= sspi;SOCKET=;DESC=MySQL ODBC 3.51 Driver DSN;DATABASE=intemper;SERVER=localhost;PORT=3306"
'creo el adaptador
Dim adp As Odbc.OdbcDataAdapter
adp.SelectCommand = New Odbc.OdbcCommand("SELECT * FROM CLIENTES", con)
adp.SelectCommand.CommandType = CommandType.Text
Try
'creo el dataset
Dim dat As New Data.DataSet
adp.Fill(dat, "CLIENTES")
Me.DATOS.DataSource = dat
Catch ex As Odbc.OdbcException
MessageBox.Show(ex.Message)
End Try
Y siempre me dá el mismo error .... aun en proyectos totalmente diferentes, con código diferente.
Ei codigo:
'USO de un DATASET
'creo la conexion
Dim con As New Odbc.OdbcConnection
con.ConnectionString = "STMT=;OPTION=3;DSN=LOCAL;integrated security= sspi;SOCKET=;DESC=MySQL ODBC 3.51 Driver DSN;DATABASE=intemper;SERVER=localhost;PORT=3306"
'creo el adaptador
Dim adp As Odbc.OdbcDataAdapter
adp.SelectCommand = New Odbc.OdbcCommand("SELECT * FROM CLIENTES", con)
adp.SelectCommand.CommandType = CommandType.Text
Try
'creo el dataset
Dim dat As New Data.DataSet
adp.Fill(dat, "CLIENTES")
Me.DATOS.DataSource = dat
Catch ex As Odbc.OdbcException
MessageBox.Show(ex.Message)
End Try
Y siempre me dá el mismo error .... aun en proyectos totalmente diferentes, con código diferente.
Por cierto que el error me dá aquí:
adp.SelectCommand = New Odbc.OdbcCommand("SELECT * FROM CLIENTES", con)
Escepto cuando pongo DELANTE :
adp.SelectCommand.CommandType = CommandType.Text
Que me da ENTONCES en esta linea
adp.SelectCommand = New Odbc.OdbcCommand("SELECT * FROM CLIENTES", con)
Escepto cuando pongo DELANTE :
adp.SelectCommand.CommandType = CommandType.Text
Que me da ENTONCES en esta linea
FLIPAD ¡¡
'USO de un DATASET
'creo la conexion
Dim con As New Odbc.OdbcConnection
con.ConnectionString = "STMT=;OPTION=3;DSN=LOCAL;integrated security= sspi;DESC=MySQL ODBC 3.51 Driver DSN;DATABASE=intemper;SERVER=localhost"
'creo el adaptador
Dim adp As New Odbc.OdbcDataAdapter("SELECT * FROM CLIENTES", "STMT=;OPTION=3;DSN=LOCAL;integrated security= sspi;DESC=MySQL ODBC 3.51 Driver DSN;DATABASE=intemper;SERVER=localhost")
'creo el dataset
Dim dat As New Data.DataSet
Try
adp.Fill(dat, "CLIENTES")
Me.Data.DataSource = dat.Tables("CLIENTES")
Me.LISTA.DataSource = dat.Tables("CLIENTES")
MsgBox(dat.Tables("CLIENTES").Rows.Count)
Catch ex As Odbc.OdbcException
MessageBox.Show(ex.Message)
End Try
ASI me funciona ... MAL ... pero me funciona. Mal, porque me rellena el objeto "Data" (datagrid) con la estructura de la tabla .... PERO NO ME TRAE ninguna fila ????
'USO de un DATASET
'creo la conexion
Dim con As New Odbc.OdbcConnection
con.ConnectionString = "STMT=;OPTION=3;DSN=LOCAL;integrated security= sspi;DESC=MySQL ODBC 3.51 Driver DSN;DATABASE=intemper;SERVER=localhost"
'creo el adaptador
Dim adp As New Odbc.OdbcDataAdapter("SELECT * FROM CLIENTES", "STMT=;OPTION=3;DSN=LOCAL;integrated security= sspi;DESC=MySQL ODBC 3.51 Driver DSN;DATABASE=intemper;SERVER=localhost")
'creo el dataset
Dim dat As New Data.DataSet
Try
adp.Fill(dat, "CLIENTES")
Me.Data.DataSource = dat.Tables("CLIENTES")
Me.LISTA.DataSource = dat.Tables("CLIENTES")
MsgBox(dat.Tables("CLIENTES").Rows.Count)
Catch ex As Odbc.OdbcException
MessageBox.Show(ex.Message)
End Try
ASI me funciona ... MAL ... pero me funciona. Mal, porque me rellena el objeto "Data" (datagrid) con la estructura de la tabla .... PERO NO ME TRAE ninguna fila ????