RE:Consultar una tabla de sql server
Imports System.Data.SqlClient
Dim conectar As New SqlConnection
Public Sub MostrarCliente(ByVal NumCliente As Int32)
Dim cmd As New SqlCommand
Try
conectar.Open()
cmd.Connection = conectar
cmd.CommandText = "Select IdCliente,Nombrecliente from Clientes where IdCliente=" & NumCliente
cmd.CommandType = CommandType.Text
Using rs As SqlDataReader = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
While rs.Read
TextBox1.Text = rs("IdCliente")
TextBox2.Text = rs("nombreCliente")
End While
End Using
Catch ex As SqlException
'Aqui va tu excepcion SQL
Finally
conectar.Close()
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'ISAliments remplazala por el nombre de tu Base de Datos
conectar.ConnectionString = "Data Source=(local);DataBase=ISAliments;Integrated Security=SSPI"
End Sub
'
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MostrarCliente(1) 'Muestro datos del cliente con codigo 1
End Sub