coneccion urgente en visual basic.net

chikivero
26 de Agosto del 2005
Como conecto dos formas por medio de un boton utilizando visual.basic.net
Gracias mil gracias

mi
26 de Agosto del 2005
Private oConexion As New OleDbConnection
\\'Creo el objeto DataSet
Private obDataSet As DataSet
\\'Creo el objeto obDataAdapter
Private obDataAdapter As OleDbDataAdapter

Private iPosicFilaActual As New Integer

Public Sub Conectar(ByVal tabla As String)

Try
oConexion.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Application.StartupPath() & \"\\gesHostal.MDB\"

oConexion.Open()
\\' MessageBox.Show(\"Conectado\" & tabla)

Catch oExcep As OleDbException

MessageBox.Show(\"Error al conectar con datos\" & ControlChars.CrLf & oExcep.Message & ControlChars.CrLf & oExcep.Source())

End Try

\\' crear adaptador
Dim strSQL

strSQL = \" SELECT * FROM \" & tabla & \"\"

Me.obDataAdapter = New OleDbDataAdapter(strSQL, oConexion)
\\' crear commandbuilder
Dim oCommBuild As OleDbCommandBuilder = New OleDbCommandBuilder(obDataAdapter)
\\' crear dataset
Me.obDataSet = New DataSet

\\' llenar con el adaptador el dataset
Me.obDataAdapter.Fill(obDataSet, tabla)

\\' establecer el indicador del registro a mostrar de la tabla
Me.iPosicFilaActual = 0
\\' cargar columnas del registro en los controles del formulario

End Sub