Informe sobre como conectar visual basic 6
- 1. INFORME SOBRE COMO CONECTAR VISUAL BASIC 6.0 A LAS SIGUIENTES BASES DE DATOS. Pedro Montero C.I.26653797 Codigo: 50 Microsoft Access 2003 Option Explicit Private conexion As ADODB.Connection Private WithEvents record As ADODB.Recordset //esto va en el form Private Sub Form_Load() Set conexion = New ADODB.Connection Set record = New ADODB.Recordset record.LockType = adLockOptimistic record.CursorType = adOpenKeyset With conexion //esta condicion es para evitar escribir la variable conexion varis veces .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "archivo.mdb; persist security info=False" .Open End With End Sub Microsoft SQL Server 2008 Dim Con As New ADOD.Connection Dim Rec As New ADODB.Recordaet Private Sub Command1_click Con.Open “Driver=SQL Server/Server. /SQLEXPRESS; Database=FQMS;uid=aa:pwd=saj” Rec.Open “Select * from database where dbname = ‘ & text1.text & “ ’ ”, con, adOpen5tatic, adLockReadOnly If Rec.Recordcount > 0 then Text2.text Rect.Fields! Location End If Rec.close Con.close End sub
- 2. MySQL Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sql$ Set cnn = New ADODB.Connection cnn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _ & "SERVER=xx.xxx.xx.xx;" _ & "DATABASE=MIBASE;" _ & "UID=miusuario;PWD=miclave;PORT=3306;OPTION=131072" cnn.Open Set rst = New ADODB.Recordset sql$ = "select Lugar.Provincia from Lugar where Lugar.Region='" & Combo1 & "' Group by Lugar.provincia" With rst .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open sql$, cnn, , , adCmdText