19/10/2010, 11:14
|
| | | Fecha de Ingreso: octubre-2010
Mensajes: 7
Antigüedad: 14 años, 5 meses Puntos: 0 | |
| Respuesta: Modulo mostrar
Public Function ObtenerDatos(ByVal id As String, ByVal id1 As String, ByVal id2 As String, ByVal id3 As String) As DataTable
Dim dt As New DataTable
Using conn As New SqlConnection("server=tac-corvus; user id=gs_admin; password=366558; database=admin_gs; pooling=false")
conn.Open()
Dim sql As String = "SELECT nombre,middle,lasti FROM usuario WHERE id = @id"
Comando.Parameters.AddWithValue("@id", id)
Comando.Parameters.AddWithValue("nombre", id1)
Comando.Parameters.AddWithValue("middle", id2)
Comando.Parameters.AddWithValue("lasti", id3)
Dim da As New SqlDataAdapter(Comando)
da.Fill(dt)
End Using
End Function |