04/05/2006, 01:28
|
| | | Fecha de Ingreso: abril-2006
Mensajes: 166
Antigüedad: 18 años, 9 meses Puntos: 0 | |
Hola.
En ésta parte del código te digo como conectarte a una base de datos de SQL Server y como mostrar el 1º registro de ésta. Utilizo un datatable en vez del dataset. El nombre de la base de datos del ejemplo es "Proyecto1":
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Establecer la conexión
conexion_bdsql = New SqlConnection("data source=PC-DESARROLLO4;initial catalog=Proyecto1;user id=sa")
conexion_bdsql.Open()
'Creamos la data table
dt_tempresa = New DataTable
' Crear un nuevo objeto del tipo DataAdapter
da_tempresa = New SqlDataAdapter("SELECT * FROM TEmpresa ORDER BY CIF", "data source=PC-DESARROLLO4;initial catalog=Proyecto1;user id=sa")
' Crear los comandos de insertar, actualizar y eliminar
Dim cons_com As New SqlCommandBuilder(da_tempresa)
' Llenar la datatable con los datos indicados
da_tempresa.Fill(dt_tempresa)
With Me
'Mostrar el 1º registro
Dim dr_tpersona As DataRow = dt_tempresa.Rows(0)
.txtcif.Text = dr_tpersona("CIF").ToString
.txtnombre.Text = dr_tpersona("Des_NombreEmp").ToString
.txtpueblo.Text = dr_tpersona("Des_Pueblo").ToString
End with
Lógicamente, para probar este ejemplo habrás tenido que crear los textbox txtcif,txtnombre y txtpueblo.
Espero que te haya servido.
Un saludo. |