Asignar valor de un Campo a una variable

01/02/2005 - 23:52 por David Fúnez | Informe spam

Hola a todos;

Tengo una rutina de validación que sirve para TextBox en la cual chequeo si
el código ingresado al TextBox existe o no, ahora, si existe quiero saber
como asignarle la descripción de ese código a una variable:

Rutina de validación:
Dim conn As New .SqlConnection("Data Source=computo;Initial
Catalog=kardex;Integrated Security=SSPI;")

Dim da As New .SqlDataAdapter("SELECT codigo, descripcion FROM repuestos
WHERE codigo='" + cod + "'", conn)

Dim tabla As New DataTable

Dim rowcount As Integer = 0

Try

conn.Open()

rowcount = da.Fill(tabla)

Catch ex As Exception

MsgBox("Error :" & ex.Message)

End Try

If rowcount = 1 Then

MsgBox("Ya existe")

e.Cancel = True

Else

' NADA QUE HACER

End If

Saludos y gracias.

David Fúnez
Tegucigalpa, Honduras

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Por favor: asignar valor de un campo a una variable!!!! ayuda...

Leer las respuestas

#1 Imac_Man

02/02/2005 - 00:04 | Informe spam

Hola, retomando tu codigo creo que seria asi

MiAdaptador.Fill(MiDataSet)
dim intRegistros as Integer = MiDataSet.Tables(0).Rows.Count
if intRegistros > 0 then
msgbox "Ok Se encontro almenos un registro"
end if

suerte

"David Fúnez" escribió en el mensaje
news:%23%23SZm$

Hola a todos;

Tengo una rutina de validación que sirve para TextBox en la cual chequeo
si el código ingresado al TextBox existe o no, ahora, si existe quiero
saber como asignarle la descripción de ese código a una variable:

Rutina de validación:
Dim conn As New .SqlConnection("Data Source=computo;Initial
Catalog=kardex;Integrated Security=SSPI;")

Dim da As New .SqlDataAdapter("SELECT codigo, descripcion FROM repuestos
WHERE codigo='" + cod + "'", conn)

Dim tabla As New DataTable

Dim rowcount As Integer = 0

Try

conn.Open()

rowcount = da.Fill(tabla)

Catch ex As Exception

MsgBox("Error :" & ex.Message)

End Try

If rowcount = 1 Then

MsgBox("Ya existe")

e.Cancel = True

Else

' NADA QUE HACER

End If

Saludos y gracias.

David Fúnez
Tegucigalpa, Honduras

Responder a este mensaje

#2 Pedro Luna Montalvo, MVP

02/02/2005 - 14:35 | Informe spam

Que te parece si pruebas algo asi:

Dim conn As New .SqlConnection("Data Source=computo;Initial
Catalog=kardex;Integrated Security=SSPI;")
Dim da As New .SqlDataAdapter("SELECT codigo, descripcion FROM repuestos
WHERE codigo='" + cod + "'", conn)

Dim tabla As New DataTable

Try
da.Fill(tabla)
Catch ex As Exception
MsgBox("Error :" & ex.Message)
End Try

If tabla.Rows.Count = 1 Then
MsgBox("Ya existe")
txtDescripcion.Text = Convert.ToString(tabla.Rows(0)("descripcion"))
e.Cancel = True
Else
' NADA QUE HACER
End If

Saludos
Pedro Luna, [MVP VB.NET]
Gye, Ecu

"David Fúnez" escribió en el mensaje
news:%23%23SZm$

Hola a todos;

Tengo una rutina de validación que sirve para TextBox en la cual chequeo

el código ingresado al TextBox existe o no, ahora, si existe quiero saber
como asignarle la descripción de ese código a una variable:

Rutina de validación:
Dim conn As New .SqlConnection("Data Source=computo;Initial
Catalog=kardex;Integrated Security=SSPI;")

Dim da As New .SqlDataAdapter("SELECT codigo, descripcion FROM repuestos
WHERE codigo='" + cod + "'", conn)

Dim tabla As New DataTable

Dim rowcount As Integer = 0

Try

conn.Open()

rowcount = da.Fill(tabla)

Catch ex As Exception

MsgBox("Error :" & ex.Message)

End Try

If rowcount = 1 Then

MsgBox("Ya existe")

e.Cancel = True

Else

' NADA QUE HACER

End If

Saludos y gracias.

David Fúnez
Tegucigalpa, Honduras

Responder a este mensaje

#3 David Fúnez

02/02/2005 - 15:49 | Informe spam

Gracias a ambos... me sirvió el código, asunto solucionado.

David Fúnez
Tegucigalpa, Honduras

"David Fúnez" wrote in message
news:%23%23SZm$

Hola a todos;

Tengo una rutina de validación que sirve para TextBox en la cual chequeo
si el código ingresado al TextBox existe o no, ahora, si existe quiero
saber como asignarle la descripción de ese código a una variable:

Rutina de validación:
Dim conn As New .SqlConnection("Data Source=computo;Initial
Catalog=kardex;Integrated Security=SSPI;")

Dim da As New .SqlDataAdapter("SELECT codigo, descripcion FROM repuestos
WHERE codigo='" + cod + "'", conn)

Dim tabla As New DataTable

Dim rowcount As Integer = 0

Try

conn.Open()

rowcount = da.Fill(tabla)

Catch ex As Exception

MsgBox("Error :" & ex.Message)

End Try

If rowcount = 1 Then

MsgBox("Ya existe")

e.Cancel = True

Else

' NADA QUE HACER

End If

Saludos y gracias.

David Fúnez
Tegucigalpa, Honduras

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida