Codigo Buscar
Publicado por Segundo Tello (1 intervención) el 05/03/2012 19:40:19
Estimados ¿Como estas? Espero que bien?.
les escribo en esta oportunidad para solicitar de tu ayuda en programación de VB2008 y Sql2005.
les comcuento lo que necesito hacer:
1.- Genera una consulta (sql)
2.- Una vez encontrado el dato, lo tire a un textbox.
A continuación envió mi código fuente para que lo revises.
-------------------------------------------------------------------------------------------------
Imports System.Data
Imports System.Data.SqlClient
---------------------------------------------------------------------------------------------------------
Public Class Form1
Dim conex As New SqlConnection("server=pcsegundot\sqlexpress;database=vpsa;integrated security=True")
Dim Dataset As DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
------------------------------------------------------------------------------------------------------------
Private Sub ButtBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim da As New SqlDataAdapter("SELECT nombre,usuario,clave FROM dbo_usuarios where usuario = '" & (Txtusuario.Text) & "'", conex)
dataAdapter = SqlDataAdapter(da, conex)
Dataset = New DataSet
' llenarlo
DataAdapter.Fill(Dataset, "usuarios")
' Txtnombre.DataBindings.Add("text", Dataset, "Nombre")
End Sub
De antemano gracias
les escribo en esta oportunidad para solicitar de tu ayuda en programación de VB2008 y Sql2005.
les comcuento lo que necesito hacer:
1.- Genera una consulta (sql)
2.- Una vez encontrado el dato, lo tire a un textbox.
A continuación envió mi código fuente para que lo revises.
-------------------------------------------------------------------------------------------------
Imports System.Data
Imports System.Data.SqlClient
---------------------------------------------------------------------------------------------------------
Public Class Form1
Dim conex As New SqlConnection("server=pcsegundot\sqlexpress;database=vpsa;integrated security=True")
Dim Dataset As DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
------------------------------------------------------------------------------------------------------------
Private Sub ButtBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim da As New SqlDataAdapter("SELECT nombre,usuario,clave FROM dbo_usuarios where usuario = '" & (Txtusuario.Text) & "'", conex)
dataAdapter = SqlDataAdapter(da, conex)
Dataset = New DataSet
' llenarlo
DataAdapter.Fill(Dataset, "usuarios")
' Txtnombre.DataBindings.Add("text", Dataset, "Nombre")
End Sub
De antemano gracias
Valora esta pregunta


0