system.NullReferenceException

Grillo
04 de Octubre del 2004
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.


Grillo
04 de Octubre del 2004
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

Grillo
04 de Octubre del 2004
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 ????