Anónimo
Visual basic y sql.
Pretendo crear una nueva tabla desde visual basic y utilizando SQL, pero mediante DAO 3.0.
Me dijeron que las instrucciones en SQL son estas:
CREATE TABLE CLIEN(
CODC CHAR (4) NOT NULL UNIQUE,
NOMBREC CHAR(15) NOT NULL,
CIUDAD CHAR(10));
Pero para hacerlo desde visual basic tengo que utilizar la biblioteca DAO 3.0.Lo que he intentado yo es lo siguiente:
Dim base1 As Database
Dim CLIEN As Recordset
Dim SQL As String
Set BDD = OpenDatabase("c:\mis documentos\base1.mdb")
SQL = "CREATE TABLE CLIEN (CODC CHAR (4) NOT NULL UNIQUE,NOMBREC CHAR(15) NOT NULL,CIUDAD CHAR(10))"
base1.Execute SQL
(Para crear una nueva tabla en la base de datos base1)
Pero me da el siguiente error:
Error 91 en tiempo de ejecución:
Variable de tipo Object o la variable de bloque with no está establecida
¿Qué estoy haciendo mal?
Muchas gracias por vuestra ayuda.
Me dijeron que las instrucciones en SQL son estas:
CREATE TABLE CLIEN(
CODC CHAR (4) NOT NULL UNIQUE,
NOMBREC CHAR(15) NOT NULL,
CIUDAD CHAR(10));
Pero para hacerlo desde visual basic tengo que utilizar la biblioteca DAO 3.0.Lo que he intentado yo es lo siguiente:
Dim base1 As Database
Dim CLIEN As Recordset
Dim SQL As String
Set BDD = OpenDatabase("c:\mis documentos\base1.mdb")
SQL = "CREATE TABLE CLIEN (CODC CHAR (4) NOT NULL UNIQUE,NOMBREC CHAR(15) NOT NULL,CIUDAD CHAR(10))"
base1.Execute SQL
(Para crear una nueva tabla en la base de datos base1)
Pero me da el siguiente error:
Error 91 en tiempo de ejecución:
Variable de tipo Object o la variable de bloque with no está establecida
¿Qué estoy haciendo mal?
Muchas gracias por vuestra ayuda.
1 Respuesta
Respuesta de pcburner
1
El problema estaba en la asignación de BDD, no estaba declarado.
Prueba esto
Dim base1 As Database
Dim CLIEN As Recordset
Dim SQL As String
Set base1 = OpenDatabase("c:\mis documentos\base1.mdb")
SQL = "CREATE TABLE CLIEN (CODC CHAR (4) NOT NULL UNIQUE,NOMBREC CHAR(15) NOT NULL,CIUDAD CHAR(10))"
base1.Execute SQL
Prueba esto
Dim base1 As Database
Dim CLIEN As Recordset
Dim SQL As String
Set base1 = OpenDatabase("c:\mis documentos\base1.mdb")
SQL = "CREATE TABLE CLIEN (CODC CHAR (4) NOT NULL UNIQUE,NOMBREC CHAR(15) NOT NULL,CIUDAD CHAR(10))"
base1.Execute SQL