Visual Basic.NET - BUSQUEDA DE REGISTROS

   
Vista:

BUSQUEDA DE REGISTROS

Publicado por ana (9 intervenciones) el 06/06/2008 01:27:30
buenas! quisiera saber como mostrar el resultado de una consulta en los textbox correspondientes, he intentado de todas las formas incluso con el databinding y no funciona, esto es lo que tengo

Dim myCommand As New Data.OleDb.OleDbCommand
Dim accAdapterUpdate As Data.OleDb.OleDbDataAdapter
Dim stringsql As String
Dim accdataset As New DataSet
AccConexion = New OleDb.OleDbConnection
AccConexion.ConnectionString = stringconexion
AccConexion.Open()
Try
stringsql = "select tipocli,nit,contricli,inactivocli, contactocli, direccioncli,zonacli,codigopos, ciudadcli, webcli, tipocli, saldo_actcli, observacioncli from clientes where codigocli='" & clients.codigo.Text & "'"

pero como le digo que muestre esos campos en los textbox correspondientes????????????
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

RE:BUSQUEDA DE REGISTROS

Publicado por David Medina (8 intervenciones) el 06/06/2008 16:25:45
Private Sub Consultar(ByVal stringconexion As String, ByVal CodigoCliente As String)
Dim stringsql As String = String.Empty
Dim accAdapter As OleDbDataAdapter = Nothing
Dim accdataset As New DataSet
Try
stringsql = "select tipocli,nit,contricli,inactivocli, contactocli, direccioncli,zonacli,codigopos, ciudadcli, webcli, tipocli, saldo_actcli, observacioncli from clientes where codigocli=@codigo"
accAdapter = New OleDbDataAdapter(stringsql, stringconexion)
accAdapter.SelectCommand.CommandType = CommandType.Text
accAdapter.SelectCommand.Parameters.Add("@codigo", OleDbType.VarChar, 15)
accAdapter.SelectCommand.Parameters("@codigo").Value = CodigoCliente
accAdapter.Fill(accdataset)

'Si hay registros
If accdataset.Tables(0).Rows.Count > 0 Then
Textbox1.Text = accdataset.Tables(0).Rows(0)("tipocli").ToString()
'Y así con los demás campos
End If
Catch ex As Exception
'TODO: Colocar el manejador de error
End Try
End Sub
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

RE:BUSQUEDA DE REGISTROS

Publicado por David Medina (8 intervenciones) el 06/06/2008 16:29:51
Claro que si me preguntas, la verdad NO utilizaría un DataSet para retornar registros y mostrarlos, debido a que un DataSet es una estructura más pesada y puedes utilizar un Reader que es más liviano y como solo vas a mostrar los registros es mejor!

Dim stringsql As String = String.Empty
Dim accReader As OleDbDataReader = Nothing
Dim myCommand As OleDbCommand = Nothing
stringsql = "select tipocli,nit,contricli,inactivocli, contactocli, direccioncli,zonacli,codigopos, ciudadcli, webcli, tipocli, saldo_actcli, observacioncli from clientes where codigocli=@codigo"

myCommand = New OleDbCommand(stringsql, New OleDbConnection(stringconexion))
myCommand.CommandType = CommandType.Text
myCommand.Parameters.Add("@codigo", OleDbType.VarChar, 15)
myCommand.Parameters("@codigo").Value = CodigoCliente
myCommand.Connection.Open()
accReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
If accReader.HasRows Then
While accReader.Read
TextBox1.Text = accReader.GetString(0) ' La posición 0 corresponde al campo tipocli
End While
End If
accReader.Close()
Catch ex As Exception
'TODO: Colocar el manejador de error
End Try
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