RE:Visual Basic 2005 Express Edition
Publicado por
sergio Vargas (1 intervención) el 05/06/2007 22:27:07
Luis
si quieres realizar una coneccion mas profesional sin ayuda del wizard
en un modulo o en una clase. como quieran realiza la conexion
'namespace que permite la conexion con oledb
Imports System.Data.OleDb
Public Class Class1
Dim ds As DataSet
Dim sql As String = "Select * from Tabla1"
Dim conn As New OleDbConnection(Conexion)
Dim da As New OleDbDataAdapter(sql, conn)
Dim bs As New BindingSource(ds, "tabla1")
Dim bn As New BindingNavigator(bs)
dim conexionn as string
Public Sub Conexion()
Try
'Se abre la Conexion
conn.Open()
'Llenar los Datos en el Dataset
da.Fill(ds, "Tabla1")
'mostralos en un control
Dim cb As New System.Windows.Forms.ComboBox
'enlazarlo con el combobox
cb.DataSource = ds
'Mostrar un Campo
cb.DisplayMember = "Campo2"
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Para Guardar campos a la base de datos basta con decirle al dataset que se
enlace con el adaptador
Public Sub GuardarCampos()
Dim ds As DataSet
Dim da As New OleDbDataAdapter
'si ah sufrido cambios la base de datos
If ds.HasChanges Then
da.Update(ds)
End If
End Sub
Public Sub AgregarCampos()
bs.EndEdit()
bn.AddNewItem(ds.tabla1)
End Sub
Espero te sirva Saludos