H?or
17 de Mayo del 2004

Necesito añadir y modificar registros de una base de datos a la que accedo mediante odbc pero me da error en la llamada odbc, esto es lo que hago:

Dim wsODBC As Workspace, conODBC As Connection
Set wsODBC = CreateWorkspace("", "", "", dbUseODBC)
Set conODBC = wsODBC.OpenConnection("Nueva conexion", dbDriverNoPrompt, True, "ODBC;DATABASE=Mibase.mdb;DSN=mibase")
strSQL = "Insert into Usuarios(Usuario, Password, Tipo) Values('" & Usuario.Text & "', '" & Password.Text & "', 'Adm')"
conODBC.Execute strSQL

¿Que es lo que estoy haciendo mal? ¿Hay alguna otra forma de hacerlo?

dav_gij
17 de Mayo del 2004

Yo como lo hago es así:
Dim conexion As ADODB.Connection
Set conexion = New ADODB.Connection
conexion.ConnectionString ="Cadena de conexión a tu base de datos"
conexion.Open "Nombre conexión"
cadena="Insert o update que quieras"
conexion.execute(cadena)

H?or
17 de Mayo del 2004

me da error al poner Dim conexion As ADODB.Connection.
¿Hay que añadir alguna referencia?

dav_gij
17 de Mayo del 2004

Sí,hay que meter los ActiveX

H?or
17 de Mayo del 2004

Alguien me puede dar alguna otra solucion o decirme que esta mal en mi código?
Gracias.

H?or
17 de Mayo del 2004

Ya me funciona lo que me has comentado de ADO, ahora mi pregunta es como hago consultas que se devuelvan en recordset de esta forma? pudes ayudarme?
Gracias.