Asignar valor de un Campo a una variable

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

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

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