ASP.NET - poner datos en un textbox desde tabla sql server

   
Vista:

poner datos en un textbox desde tabla sql server

Publicado por andyman (2 intervenciones) el 31/10/2012 20:54:50
buenas tardes
esta es mi primera pregunta en el foro y quisiera saber si me pueden ayudar con esto tengo una pagina con dos campos uno para codigo y otro para nombre, puedo insertar, modificar y eliminar los datos de la tabla en sql server pero no he podido traer esos datos hacia el textbox nombre el codigo que tengo es este, es un poco enredado pero me ha funcionado.

Imports System.Data.SqlClient
Imports System.Data

Public Class _Default
Inherits System.Web.UI.Page
Dim obj As New Raza

Function cnx_insert2() As Integer

Dim conexion As String
conexion = "Data Source = ANDYMAN-PC\SQLEXPRESS; initial catalog = veterinaria; integrated security =true"
Dim con As New SqlConnection(conexion)
Dim insertar2 As String
'insertar2 = "insert into vete_raza (raz_codigo,raz_nombre) values (" & text_codigo.Text & "," ' & text_raza.Text & ')""
insertar2 = "insert into vete_raza (raz_codigo,raz_nombre) values (" & text_codigo.Text & ",'" & text_raza.Text & "')"
'insertar2 = "insert into vete_raza (raz_codigo) values (" & text_codigo.Text & ",'" & text_raza.Text & "')"
Dim cmd_insertar2 As SqlCommand = New SqlCommand(insertar2, con)

Try
con.Open()
cmd_insertar2.ExecuteNonQuery()
con.Close()
Catch e As SqlException
MsgBox("error" & e.Message)
Finally
End Try
Return 0
End Function
'''
'''
Function cnx_update2() As Integer

Dim conexion As String
conexion = "Data Source = ANDYMAN-PC\SQLEXPRESS; initial catalog = veterinaria; integrated security =true"
Dim con As New SqlConnection(conexion)
Dim actualizar As String
actualizar = "update vete_raza set raz_nombre = '" & text_raza.Text & "' where raz_codigo =" & text_codigo.Text & ""
Dim cmd_actualizar As SqlCommand = New SqlCommand(actualizar, con)

Try
con.Open()
cmd_actualizar.ExecuteNonQuery()
con.Close()

Catch e As SqlException
MsgBox("error" & e.Message)

Finally

End Try
Return 0

End Function
'''
'''
Function cnx_delete2() As Integer

Dim conexion As String
conexion = "Data Source = ANDYMAN-PC\SQLEXPRESS; initial catalog = veterinaria; integrated security =true"
Dim con As New SqlConnection(conexion)
Dim borrar As String
borrar = "delete vete_raza where raz_codigo =" & text_codigo.Text & ""
Dim cmd_borrar As SqlCommand = New SqlCommand(borrar, con)

Try
con.Open()
cmd_borrar.ExecuteNonQuery()
con.Close()

Catch e As SqlException
MsgBox("error" & e.Message)

Finally

End Try
Return 0

End Function
'''
'''
Function cnx_select2() As String

Dim conexion As String
conexion = "Data Source = ANDYMAN-PC\SQLEXPRESS; initial catalog = veterinaria; integrated security =true"
Dim con As New SqlConnection(conexion)
Dim consultar As String
consultar = "select (raz_nombre) from vete_raza where raz_codigo =" & text_codigo.Text & ""
Dim cmd_consultar As New SqlCommand(consultar, con)



Try
con.Open()
cmd_consultar.ExecuteNonQuery()
Dim consu As SqlDataReader = cmd_consultar.ExecuteReader
con.Close()

Catch e As SqlException
MsgBox("error" & e.Message)

Finally

End Try
Return Nothing









End Function

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

Protected Sub bt_guardar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles bt_guardar.Click

Dim resultado As Integer
resultado = cnx_insert2()
MsgBox("los datos se ingresaron correctamente")
End Sub

Protected Sub bt_actualizar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles bt_actualizar.Click
Dim resultado As Integer
resultado = cnx_update2()
MsgBox("el registro se actualizo de forma correcta")
End Sub
Protected Sub bt_borrar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles bt_borrar.Click
Dim resultado As Integer
resultado = cnx_delete2()
MsgBox("el registro se elimino")

End Sub

Protected Sub bt_consultar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles bt_consultar.Click
Dim resultado As String
resultado = cnx_select2()
text_raza.Text = cnx_select2()






End Sub


End Class

en donde tengo el problema es exactamente en la funcion cnx_select2

si me podrian ayudar se los agradeceria
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Santos Pairazamán Flores

poner datos en un textbox desde tabla sql server

Publicado por Santos Pairazamán Flores (46 intervenciones) el 05/11/2012 20:49:42
En la función t falta retornar el valor de la consulta

con.Open()
cmd_consultar.ExecuteNonQuery()
Dim consu As SqlDataReader = cmd_consultar.ExecuteReader
return consu.GetString(0))
con.Close()

donde 1 es el indice de la columna en la consulta q deseas devolver. En este caso es un String
si fuese un entero sería así:
consu.GetInt32(1) ' segunda columna

Saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

poner datos en un textbox desde tabla sql server

Publicado por Khristian (335 intervenciones) el 05/03/2013 17:35:16
Primero habria que consultar si hay resultados.

http://msdn.microsoft.com/en-us/library/system.data.datatablereader.hasrows%28v=vs.80%29.aspx

-----------------------------------------------------------------

Deberias crearte una clase de acceso a datos, con metodos para Ingresar, Modificar, Eliminar y Recuperar, y pasarle como parametros los valores necesarios, y que te devuelvan un booleano que indica si se efectuó la transaccion (Para los 3 primeros), y para el caso de Recuperar, asignas en la misma clase los valores a los atributos de la clase, y los asignas despues en la UI.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar