Insertar en una base de datos access desde VC 6

[rbpkirow]

lo que me ocurre es que no se insertar datos en la base de datos:

Tengo lo siguiente,
una base de datos llamada "ro2005", con una tabla= "inicio"
la tabla tiene 3 campos(Id, Nombre, Valor),

Un cliente, con un boton que llama a la funcion insertar del interfaz del servidor(que funciona bien)

Y el servidor tiene una funcion dentro del interfaz llamada insertar, que recibe tres parametros(los tres de la tabla),

lo que hago es lo siguiente:

CDatabase base1;
base1.OpenEx("DSN=ro2005",0);
CString ComandoSQL="INSERT INTO inicio VALUES (longId,bstrNombre,doubleValor)";
base1.ExecuteSQL(ComandoSQL);
base1.Close();


y no se donde tengo el fallo, Me podeis ayudar?
Gracias

[latindeveloper]

La consulta SQL debería ser de esta forma:

Código: Seleccionar todo

INSERT INTO inicio (Id, Nombre, Valor) VALUES (1,'Nombre1',99.99)


Si el campo Id es de tipo autonumerico entonces:

Código: Seleccionar todo

INSERT INTO inicio (Nombre, Valor) VALUES ('Nombre1',99.99)


[rbpkirow]

Ahora lo que tengo es lo siguiente:


CDatabase base1;
base1.OpenEx("DSN=ro2005",0);
CString ComandoSQL="INSERT INTO inicio (Id, Nombre, Valor) VALUES (1,'Nombre1',99.99)";
base1.ExecuteSQL(ComandoSQL);
base1.Close();

pero tampoco me guarda los valores en la BD.

[latindeveloper]

Entonces la conexion no esta establecida.

Intenta cone este codigo:

Código: Seleccionar todo

try
{
   CDatabase base1;
   base1.OpenEx("DSN=ro2005",0);
   CString ComandoSQL="INSERT INTO inicio (Id, Nombre, Valor) VALUES (1,'Nombre1',99.99)";
   base1.ExecuteSQL(ComandoSQL);
   base1.Close();
}
catch(CDBException *dbe)
{
   dbe->ReportError(); // Si hay error se motará
   dbe->Delete();
}



[rbpkirow]

Exactamente, me sale un MessageBox, diciendo: 'no encuentra el nombre de origen de datos y no especificó ningún controlador predeterminado'


Y porque me da este error y como puedo solucionar esto

[latindeveloper]

Si es una base de datos de access entonces la funcion de apertura esta mal establecida.

Intenta cambiar

Código: Seleccionar todo

base1.OpenEx("DSN=ro2005",0);


Por:

Código: Seleccionar todo

CString sDriver = "MICROSOFT ACCESS DRIVER (*.mdb)";
CString sFile = "c:\\Projects\\Temporal\\Tempdb.mdb";
CString sDsn;

sDsn.Format("ODBC;DRIVER={%s};DSN='';DBQ=%s",sDriver,sFile);

base1.Open(NULL,false,false,sDsn);


[rbpkirow]

Funciona pero cuando los parametros son constantes, es decir si pongo:

CString ComandoSQL="INSERT INTO inicio (Id, Nombre, Valor) VALUES (10,'hola',99.99)";

si que funciona, pero en cuanto pongo parametros:

CString ComandoSQL="INSERT INTO inicio (Id, Nombre, Valor) VALUES (longId,bstrNombre,doubleValor)";

me salta un messagebox 'pocos parametros, se esperaba 3'

Gracias

[latindeveloper]

Entonces tienes que ensamblar la cadena de consulta:

Código: Seleccionar todo

CString sql;
int id = 10;
CString nombre = "Nombrecillo";
double valor = 12.25;

sql.Format("INSERT INTO inicio (Id, Nombre, Valor) VALUES  (%d, '%s', %.2f)"
   ,id
   ,nombre
   ,valor);



[rbpkirow]

Muchas Gracias por la ayuda, parece que ahora tira correctamente