Bueno, estoy migrando de VB6 A VB8 y me encontré con el primer obstáculo.
Tengo que conectarme a una base de datos en la que hay 4 tablas, cada conección se genera cuando hago click en las pestañas de un TabControl.
Les paso el código
MODULO:
Cita: Imports System
Imports System.Data.OleDb
Module module1
Public conn As OleDbConnection
Public Function Conectar() As Boolean
Conectar = True
' enlazando coneccion a la base de datos
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Application.StartupPath & "\database.mdb")
End Function
Public Sub Desconectar()
On Error Resume Next
conn.Close()
conn = Nothing
End Sub
Public Sub conectarventas()
Dim orden As OleDbDataAdapter
Dim tabla As DataSet
' respetar el espacion en blanco en DATA SOURCE
' cargando el adapter con la instruccion sql
orden = New OleDbDataAdapter("select * from ventas", conn)
' cargando el dataset
tabla = New DataSet()
orden.Fill(tabla, "ventas")
' cargando el datagridview
Form1.DataGridView4.DataSource = tabla
Form1.DataGridView4.DataMember = "ventas"
Desconectar()
End Sub
Public Sub conectararticulos()
Dim orden As OleDbDataAdapter
Dim tabla As DataSet
' respetar el espacion en blanco en DATA SOURCE
' cargando el adapter con la instruccion sql
orden = New OleDbDataAdapter("select * from articulos", conn)
' cargando el dataset
tabla = New DataSet()
orden.Fill(tabla, "articulos")
' cargando el datagridview
Form1.DataGridView3.DataSource = tabla
Form1.DataGridView3.DataMember = "articulos"
Desconectar()
End Sub
Public Sub conectarreservaciones()
Dim orden As OleDbDataAdapter
Dim tabla As DataSet
' respetar el espacion en blanco en DATA SOURCE
' cargando el adapter con la instruccion sql
orden = New OleDbDataAdapter("select * from reservaciones", conn)
' cargando el dataset
tabla = New DataSet()
orden.Fill(tabla, "reservaciones")
' cargando el datagridview
Form1.DataGridView2.DataSource = tabla
Form1.DataGridView2.DataMember = "reservaciones"
Desconectar()
End Sub
Public Sub conectarproveedores()
Dim orden As OleDbDataAdapter
Dim tabla As DataSet
' respetar el espacion en blanco en DATA SOURCE
' cargando el adapter con la instruccion sql
orden = New OleDbDataAdapter("select * from proveedores", conn)
' cargando el dataset
tabla = New DataSet()
orden.Fill(tabla, "proveedores")
' cargando el datagridview
Form1.DataGridView5.DataSource = tabla
Form1.DataGridView5.DataMember = "proveedores"
Desconectar()
End Sub
End Module
EVENTO CLICK DEL TABCONTROL
Cita: Imports System.Data.SqlClient
Imports System.Drawing.Drawing2D
Imports System.Data.OleDb
Imports ADODB
Public Class Form1
Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.Click
If Not Conectar() Then
MsgBox("error al conectar")
Exit Sub
End If
Select Case TabControl1.TabIndex
Case 0
conectararticulos()
Case 1
conectarreservaciones()
Case 2
conectarventas()
Case 3
conectarproveedores()
End Select
End Sub
End Class
Lo raro de esto es que la única tabla a la que puedo conectarme perfectamente es a ventas >_<
Espero que me puedan dar una mano y ya que estamos... como declaro una variable GLOBAL o la equivalente para VB8?
Muchas gracias!
Salu2!