Sentencia sql
Hola experto tengo una duda
Tengo este código para hacer una consulta
Private Sub btnbhotel_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnbhotel.Click
Dim conexion As New OleDbConnection()
conexion.ConnectionString = "mi cadena de conexion"
Dim id As Integer
id = InputBox("id a bucar")
' Crea la sentencia SQL
Dim sentencia As String
sentencia = "select [id hotel], nombre, direccion from hotel where [id hotel]=" & id
' Crea el comando SQL
Dim comando As New OleDbCommand(sentencia, conexion)
' Conecta con la Base de Datos
Conexión.Open()
Comando.ExecuteNonQuery()
' Desconecta de la Base de Datos
Conexión.Close()
Mi duda tendo tres txtbox; txtid, txtnombre y txtdire
como puedo cargar los resultados de la consulta en los texbox
Tengo este código para hacer una consulta
Private Sub btnbhotel_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnbhotel.Click
Dim conexion As New OleDbConnection()
conexion.ConnectionString = "mi cadena de conexion"
Dim id As Integer
id = InputBox("id a bucar")
' Crea la sentencia SQL
Dim sentencia As String
sentencia = "select [id hotel], nombre, direccion from hotel where [id hotel]=" & id
' Crea el comando SQL
Dim comando As New OleDbCommand(sentencia, conexion)
' Conecta con la Base de Datos
Conexión.Open()
Comando.ExecuteNonQuery()
' Desconecta de la Base de Datos
Conexión.Close()
Mi duda tendo tres txtbox; txtid, txtnombre y txtdire
como puedo cargar los resultados de la consulta en los texbox
1 respuesta
Respuesta de Roberto Alvarado
1
Lo primero que executeNonquery se utiliza para INSERT, DELETE, UPDATE, el nombre lo dice No devuelve valor.
-------------------------
Para traer o consultar datos de la Base de datos, puedes utilizar la siguiente función: recibe como parámetro el query que crees, por ejemplo el select que tienes en el código que me envías arriba.
Public Function Request(ByVal pstQuery As String) As DataTable
Dim dt As New DataTable
_stMsgError = ""
Dim obCnn As New SqlConnection
Try
obCnn = ConnectDB()
Dim obCmd As SqlCommand = obCnn.CreateCommand
obCmd.CommandText = pstQuery
obCmd.Connection = obCnn
Dim daTmp As New SqlDataAdapter(obCmd)
daTmp.Fill(dt)
Catch ex As SqlException
_stMsgError = ex.Message
Throw
Finally
obCnn.close()
End Try
Return dt
End Function
------------------------------
Entonces el codigo quedaria algo como :
Dim dt as new datatable
dt = Request("SELECT * FROM Tabla1 ")
if dt.rows.count > 0 then
' Si trajo datos
textbox1.text = dt. Rows(0). Item("nombrecampo").tostring
textbox2.text = dt. Rows(0). Item("nombrecampo2").tostring
Y asi sucesivamente de acuerdo al numero de campos que tenga la tabla del resultado.
-------------------------
Para traer o consultar datos de la Base de datos, puedes utilizar la siguiente función: recibe como parámetro el query que crees, por ejemplo el select que tienes en el código que me envías arriba.
Public Function Request(ByVal pstQuery As String) As DataTable
Dim dt As New DataTable
_stMsgError = ""
Dim obCnn As New SqlConnection
Try
obCnn = ConnectDB()
Dim obCmd As SqlCommand = obCnn.CreateCommand
obCmd.CommandText = pstQuery
obCmd.Connection = obCnn
Dim daTmp As New SqlDataAdapter(obCmd)
daTmp.Fill(dt)
Catch ex As SqlException
_stMsgError = ex.Message
Throw
Finally
obCnn.close()
End Try
Return dt
End Function
------------------------------
Entonces el codigo quedaria algo como :
Dim dt as new datatable
dt = Request("SELECT * FROM Tabla1 ")
if dt.rows.count > 0 then
' Si trajo datos
textbox1.text = dt. Rows(0). Item("nombrecampo").tostring
textbox2.text = dt. Rows(0). Item("nombrecampo2").tostring
Y asi sucesivamente de acuerdo al numero de campos que tenga la tabla del resultado.
