Visual Basic.NET - Cachar datos de consulta

   
Vista:

Cachar datos de consulta

Publicado por Alfredo (12 intervenciones) el 22/11/2007 22:20:43
Hola...

tengo un procedimiento almacenado en donde hace una busqueda de un articulo y valida si existe... y si existe quiero agregar el nombree del articulo en una caja de texto que es aqui el problema...

Codigo:

Asi lo ago en Vb 6.0

''Abro la coneccion
ConeccionBd.Open()
CmdProcedure.ActiveConnection = ConeccionBd

''Executo el procedimiento almacenado
CmdProcedure.CommandText = "{Call Val_Articulo (?)}"
CmdProcedure.Parameters(0).Value = TxtClave.Text
MrDatos = CmdProcedure.Execute()

'''' si no llega a fin de archivo quiere desir q lo encontro y se lo agrego a la cajade texto de esta manera

If Not MrDatos.EOF Then
asi----> TxtNombre.Text = MrDatos!Nombre '

Else
MsgBox("No existe el Articulo seleccionado")
End If

Pero en VB.NET no me lo respeta y me marca error alguien me podria ayudar explicandome de alguna manera de como pordria asignar el texto de un campo de una consulta a una caja de texto?

Espero y se me entienda...
Saludos....
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:Cachar datos de consulta

Publicado por P. J. (706 intervenciones) el 23/11/2007 20:15:15
Aqui te dejo un Ejemplo de conexion y busqueda de datos hacia la BD NEPTUNO, que viene como ejemplo en el Office (access)

Imports System.Data.OleDb

Public Class Form1

Dim oConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Office\Office10\Samples\Neptuno.mdb")
Dim oAdaptador As OleDbDataAdapter
Dim dt As New DataTable

Private Sub busca(ByVal strCriterio As String)
Dim strSQL As String
strSQL = "SELECT * FROM CATEGORÍAS WHERE IDCATEGORÍA = " & strCriterio
oAdaptador = New OleDbDataAdapter(strSQL, oConexion)
oAdaptador.Fill(dt)
Me.DataGridView1.DataSource = dt
If dt.Rows.Count > 0 Then
Me.Text = dt.Rows(0).Item("NOMBRECATEGORÍA").ToString
Else
Me.Text = "Categoria no encontrada."
End If
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
busca(Me.TextBox1.Text)
End If
End Sub

End Class

Salu2.
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