Consulta de código en visual basic para conectar a base de datos access
Hola si por favor me pudieras ayudar
Quiero conectar Visual Basic 6 con Accces y no puedo
Mira he creado lo siguiente
Global db As New ADODB.Connection
Global rscliente As New ADODB.Recordset
Public Sub DATA()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Farmacia\FARMACIA.mdb;Persist Security Info=False"
End Sub
Public Sub Cliente()
rscliente.Open "select * FROM cliente", db, adOpenStatic, adLockOptimistic
luego desde un formulario hago lo siguiente:
Private Sub cmdgrabar_Click()
Call Cliente
With rscliente
.AddNew
!codcliente = txtcodcliente.Text
!apellidos = txtapellidos.Text
!nombres = txtnombres.Text
!direccion = txtdireccion.Text
!documento = txtdocumento.Text
!fnac = txtfecnac.Text
!telefono = txttelefono.Text
!ruc = txtruc.Text
!carnet = txtcarnet.Text
!observacion = txtobservacion.Text
.Update
End With
End Sub
presiono f8 y sale bien hasta que llama a la tabla rscliente.open y manda el siguiente error:
Error 3709
No se puede utilizar la conexión para realizar esta operación. Está cerrada o no es valida en este contexto.
A ver si me ayudas
Gracias de antemano
Quiero conectar Visual Basic 6 con Accces y no puedo
Mira he creado lo siguiente
Global db As New ADODB.Connection
Global rscliente As New ADODB.Recordset
Public Sub DATA()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Farmacia\FARMACIA.mdb;Persist Security Info=False"
End Sub
Public Sub Cliente()
rscliente.Open "select * FROM cliente", db, adOpenStatic, adLockOptimistic
luego desde un formulario hago lo siguiente:
Private Sub cmdgrabar_Click()
Call Cliente
With rscliente
.AddNew
!codcliente = txtcodcliente.Text
!apellidos = txtapellidos.Text
!nombres = txtnombres.Text
!direccion = txtdireccion.Text
!documento = txtdocumento.Text
!fnac = txtfecnac.Text
!telefono = txttelefono.Text
!ruc = txtruc.Text
!carnet = txtcarnet.Text
!observacion = txtobservacion.Text
.Update
End With
End Sub
presiono f8 y sale bien hasta que llama a la tabla rscliente.open y manda el siguiente error:
Error 3709
No se puede utilizar la conexión para realizar esta operación. Está cerrada o no es valida en este contexto.
A ver si me ayudas
Gracias de antemano
1 respuesta
Respuesta de julianabg
1
Bueno lo hice de esta forma y grabo bien, pruébalo y me cuentas.
Public Sub DATA()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\FARMACIA.mdb;Persist Security Info=False"
End Sub
Public Sub Cliente()
rscliente.Open "select * FROM cliente", db, adOpenDynamic, adLockOptimistic, -1
End Sub
Private Sub cmdgrabar_Click()
Cliente
With rscliente
.AddNew
!codcliente = Text1.Text
!apellidos = Text2.Text
!nombres = Text3.Text
!direccion = Text4Text
!documento = Text5.Text
!fnac = Text6.Text
!telefono = Text7.Text
!ruc = Text8.Text
!carnet = Text9.Text
!observacion = Text10.Text
.Update
End With
rscliente.Close
End Sub
Private Sub Form_Load()
DATA
End Sub
Public Sub DATA()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\FARMACIA.mdb;Persist Security Info=False"
End Sub
Public Sub Cliente()
rscliente.Open "select * FROM cliente", db, adOpenDynamic, adLockOptimistic, -1
End Sub
Private Sub cmdgrabar_Click()
Cliente
With rscliente
.AddNew
!codcliente = Text1.Text
!apellidos = Text2.Text
!nombres = Text3.Text
!direccion = Text4Text
!documento = Text5.Text
!fnac = Text6.Text
!telefono = Text7.Text
!ruc = Text8.Text
!carnet = Text9.Text
!observacion = Text10.Text
.Update
End With
rscliente.Close
End Sub
Private Sub Form_Load()
DATA
End Sub
