problema con consulta
Publicado por neo (7 intervenciones) el 15/01/2011 01:56:09
Buenas....
Tengo un problema con un codigo de vb el cual esta conectado hacia un servidor de linux de mysql,
pero al querer conseguir una consulta en un datagriew no me permite ver nada y me manda error
a continuac ion detallo el codigo:
cabe mencionar que esto es un demo.
imports systems.data
imports systems.data.odbc
public class form1
public hola as string =""
public adios as string =""
private sub datagriew
try
hola = me.datagriew.currentrow.cell(0).value.tostring
adios = me.datagriew.currentrow.cell(1).value.tostring
label.text = adios
catch ex as exepcion
end try
private sub button1
dim conexion as string ="DNS=cliente"
using inicio as new odbcconnection(conecion)
inicio.open()
dim conector as string
conector = "select * from salida where hola = @hola"
dim codigo as new odbccommand(conector,inicio)
codigo.parameter.addwhitvalue("@hola",me.textbox1.text.trim)
dim union as new odbcdataadapter(codigo)
dim tabla as new datatable
union.fill(tabla)
me.datagriew.datasource=tabla
**********************el error es aqui
label.text= me.datagriew.currentrow.cell(1).value.tostring
end using
endsub
endclass
mi duda es como resolver esto.
se agradece cualquier ayuda
Tengo un problema con un codigo de vb el cual esta conectado hacia un servidor de linux de mysql,
pero al querer conseguir una consulta en un datagriew no me permite ver nada y me manda error
a continuac ion detallo el codigo:
cabe mencionar que esto es un demo.
imports systems.data
imports systems.data.odbc
public class form1
public hola as string =""
public adios as string =""
private sub datagriew
try
hola = me.datagriew.currentrow.cell(0).value.tostring
adios = me.datagriew.currentrow.cell(1).value.tostring
label.text = adios
catch ex as exepcion
end try
private sub button1
dim conexion as string ="DNS=cliente"
using inicio as new odbcconnection(conecion)
inicio.open()
dim conector as string
conector = "select * from salida where hola = @hola"
dim codigo as new odbccommand(conector,inicio)
codigo.parameter.addwhitvalue("@hola",me.textbox1.text.trim)
dim union as new odbcdataadapter(codigo)
dim tabla as new datatable
union.fill(tabla)
me.datagriew.datasource=tabla
**********************el error es aqui
label.text= me.datagriew.currentrow.cell(1).value.tostring
end using
endsub
endclass
mi duda es como resolver esto.
se agradece cualquier ayuda
Valora esta pregunta


0