Visual Basic - conectar BD access con visual6

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de pedro

conectar BD access con visual6

Publicado por pedro (2 intervenciones) el 23/09/2013 14:25:54
Hola,necesito crear una aplicacion que conecte visual 6 con una BD en access.Para la conexion tengoque emplear un Microsoft ADO Data Control, y las consultas a la unica tabla que tengo las tengo que mostrar en un Datagrid que se encuentra en un Form2.Tengo parte del codigo hecho,pero me genera algunos errores, especialmente con la conexion a la BD y las consultas.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

conectar BD access con visual6

Publicado por El Viejo Charles pro_carlosgomez@hotmail.com (261 intervenciones) el 29/09/2013 20:14:53
Porque no colocas parte del código que estas realizando e indicas en que parte tienes el error, lo otro es que si lo deseas envíame por correo el fuente, lo verifico y te hecho una ayuda con tu error.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de pedro

conectar BD access con visual6

Publicado por pedro oktubre1989@yahoo.com.ar (2 intervenciones) el 30/09/2013 13:54:10
Hola Viejo Charles,este es el codigo del form1;este funciona bien excepto los botones Actualizar(toolbar2,case 3) y Guardar(toolbar2,case 4):

Option Explicit
'DEFINIMOS LAS APIS PARA LOS MENSAJES DE WINDOWS
Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long
Private Declare Sub InitCommonControls Lib "comctl32" ()
'DEFINIMOS LAS VARIABLES PARA LA BD Y EL RECORDSET
Dim rst As Recordset
Dim cnn As Connection

Private Sub Command1_Click()
Form1.Hide
Form2.Show
End Sub

Private Sub Form_Initialize()
Call SetErrorMode(2)
Call InitCommonControls
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim lim

Select Case Button.Index
Case 1
Adodc1.Recordset.MoveFirst
Case 2
If (Adodc1.Recordset.AbsolutePosition <> 1) Then
Adodc1.Recordset.MovePrevious
End If
Case 3
lim = Adodc1.Recordset.RecordCount
If (Adodc1.Recordset.AbsolutePosition <> (lim)) Then
Adodc1.Recordset.MoveNext
End If
Case 4
Adodc1.Recordset.MoveLast
End Select
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index
Case 1
Adodc1.Recordset.AddNew
Case 2
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveFirst
Case 3
Adodc1.Refresh
Case 4
Adodc1.Recordset.Update
End Select

End Sub


Y este es el form2(Esta muy comentado porque estaba probando varias lineas de codigo pero no puedo hacer andar el boton Consultar):

Private Sub Command1_Click()
'Form1.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\basealumnos.mdb" ' & "";Persist Security Info=False"
'Form1.Adodc1.RecordSource = "alumnos"
'DataGrid2.Visible = True
'DataGrid2.DataSource = Adodc1
'DataGrid2.d

'Set Text3.DataSource = Adodc1
'Text3.DataField = "nombre"

With Form1.Adodc1
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "\basealumnos.mdb" & ";"
' Indicarle de que tabla vamos a leer los datos
.RecordSource = "alumnos"
End With

Espero que puedas ayudarme y gracias por tu tiempo!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar