A pesar de que este es mi primer tema soy un asiduo visitante de este foro, ya que me interesa mucho la ofimática y generalmente busco ayuda y consejos aquí.
El motivo de la presente es solicitar de su apoyo para resolver la siguiente cuestión, tengo un libro en Calc que sirve como formato de formulario para los pedidos que los clientes realizan vía correo, en este libro hay una tabla que me gustaría exportar mediante una macro a una tabla en Base, pero no logro conseguirlo.
Cabe mencionar que ando perdido en el campo de Id_Movimiento puesto que es clave primaria en la tabla de base y no se si se tenga que registrar con IDNEW() o como proceder.
Quedo a sus órdenes, ojala alguien pueda iluminar el sendero.
Chao!
Añado código hasta el momento:
Código: Seleccionar todo
REM ***** BASIC *****
Sub Exportar_tabla_base()
dim oDocto as object
dim oSheet as object
dim oDato as object
oDocto = thiscomponent.currentcontroller
oSheet = oDocto.activesheet
oServicio = createunoservice("com.sun.star.sdb.DatabaseContext")
obase = oServicio.getbyname("BD_MORKAS")
conn = obase.getconnection("","")
stmt = conn.createstatement()
'--------------------------------------------------------------------
for i = 1 to 9
idmovimiento = oSheet.getcellbyposition(0,i).string
concepto = oSheet.getcellbyposition(1,i).string
tipomovimiento = oSheet.getcellbyposition(2,i).string
fecha = format(oSheet.getcellbyposition(3,i).string,"dd-mm-yy")
idcliente = oSheet.getcellbyposition(4,i).string
notas = oSheet.getcellbyposition(5,i).string
idpedido = oSheet.getcellbyposition(6,i).string
idprecio = oSheet.getcellbyposition(7,i).string
valores = " VALUES ("+"'"+idmovimiento+"',"&"'"+concepto+"',"+"'"+tipomovimiento+"',"&"'"+fecha+"',"&"'"+idcliente+"',"&"'"+notas+"',"&"'"+idpedido+"',"&"'"+idprecio+"')"
strSQL = "INSERT INTO Tbl_Movimientos (Id_Movimiento,Concepto,Tipo_Movimiento,Fecha,Id_Cliente,Notas,Id_Pedido,Id_Tipo_Precio)" + valores
stmt.executeUpdate(strSQL)
next
conn.close()
msgbox "Se han exportado los datos correctamente"
End Sub