textbox & sqldatasource

[mrprogman]

saludos a Todos este es mi primer post..una duda..yo tengo un texbox q se llena por medio de un sql datasource...tengo este codigo pero si el sqldatasource o la tabla esta vacia me da error..alguien sabe como solucionarlo..?..saludos


Dim da As Data.DataView = SqlDataSource4.Select(DataSourceSelectArguments.Em pty)
TextBox8.Text = da.ToTable.Rows(0)("Column1")

[ldcd]

Bueno, lo q estas haciendo es obtener un texto de una columna y fila especifica de una bd, por lo cual si no existe esa fila o esa columna, sale un error de referencia, por q no llega a ese campo.

Lo que puedes hacer es una comparacion antes de intentar asignarla al textbox

Código:

Dim da As Data.DataView = SqlDataSource4.Select(DataSourceSelectArguments.Em pty)

Din texto as String = da.ToTable.Rows(0)("Column1")

if texto!=null 
TextBox8.Text = texto
end if

perdon si no es tal cual en VB, pero no lo practico desde hace mucho tiempo

En esencia lo que estarias haciendo es asignando eso a una variable y verificar que no venga nula, si vienen nula, no va a setear ningun valor.

Si no funciona, estaria bien que pusieras el error que te aparece para ver en q parte es donde esta fallando, por que puede ser q este dando el error al intentar buscar esa columna y te mande un error de indices (q es lo mas logico)

Saludos

[mrprogman]

Hola Gracias por contestar..pero no trabajo..me sigue marcanco el mismo error...antes de hacer la condicion

Dim dtt As Data.DataView = SqlDataSource26.Select(DataSourceSelectArguments.E mpty)
Dim texto As String = dtt.ToTable.Rows(0)("Column1")---Error There is no row at position 0.
If texto = "0" Then
TextBox49.Text = texto
End If

no se si me equivoque al ponerlo de esa manera..
saludos

[mrprogman]

le cambie de esta manera pero me sigue dando el mismo error..

Dim dtt As Data.DataView = SqlDataSource26.Select(DataSourceSelectArguments.E mpty)
If dtt.Table.Rows(0)("column1").GetType.Name <> "DBNull" Then
TextBox49.Text = "0"
Else
TextBox49.Text = dtt.ToTable.Rows(0)("Column1")
End If

alguien sabe q onda..?

[ldcd]

a ok, lo que pasa es como t comente antes, estas intentando acceder a una columna que no existe en el DataView, lo que puedes hacer es esto:

Código:

If dtt.Table.Rows.Count > 0 Then
TextBox49.Text = "0"
Else
TextBox49.Text = dtt.ToTable.Rows(0)("Column1")
End If

verifica bien si es la instruccion correcta con Rows.count

[mrprogman]

simon...si es asi..nada mas hay q cambiarle la consulta, quedaria asi..

Dim dtt As Data.DataView = SqlDataSource26.Select(DataSourceSelectArguments.E mpty)
If dtt.Table.Rows.Count <= 0 Then
TextBox49.Text = "0"
Else
TextBox49.Text = dtt.ToTable.Rows(0)("Column1")
End If

gracias, por la ayuda

[mrprogman]

si quiesiera hacer este mismo procedimiento con una consulta sql..como quedaria este es mi codigo..

sqlconn = New SqlConnection("Data Source=DELL;Initial Catalog=VENTAS;Persist Security Info=True;User ID=sa;Password=3845")
sqlconn.Open()
cmd.CommandText = " select sum(qtysold) as Cantidad from sales2 where reasoncode='01' and sid= '" & TextBox3.Text & "' and idate>= ' " & TextBox1.Text & " ' and idate<= ' " & TextBox2.Text & " ' "

cmd.Connection = sqlconn
TextBox4.Text = cmd.ExecuteScalar().ToString()
TextBox35.Text = TextBox7.Text / TextBox31.Text * -1 * 100
el problema es q si contiene valores nulos me marca error a la hora de hacer la operacion...