Conexión a Base desde VB6

[selenepzun]

Hola. Soy nueva en la programacion con openoffice y estoy tratando de crear una conexion desde visual basic 6 a base, entre a los foros y realmente mucha informacion no hay. encontre este codigo:

Código: Seleccionar todo

Private Sub Command1_Click()
 Dim oDBC As Object
Dim oBD As Object
Dim oConexion As Object
Dim oDeclaracion As Object
Dim oResultado As Object
Dim sBaseDatos As String
Dim sSQL As String

'El nombre de la base de datos
sBaseDatos = datos
'   sSQL = "SELECT * FROM T_CompComisionLactancia"
sSQL = "SELECT * FROM T_CompComisionLactancia WHERE apellido='Garcia'"
'Creamos el servicio para acceder y manipular las bases de datos
oDBC = createUnoService("com.sun.star.sdb.DatabaseContext")
'Nos aseguramos de que exista la base de datos
If oDBC.hasByName(sBaseDatos) Then
'Si existe, accedemos por el nombre
oBD = oDBC.getByName(sBaseDatos)
'Creamos una conexion a la base de datos
oConexion = oBD.getConnection("", "")
'Creamos un objeto para las instrucciones SQL
oDeclaracion = oConexion.createStatement()
'Ejecutamos la consulta
oResultado = oDeclaracion.executeQuery(sSQL)
MsgBox "Hay " & oResultado.getRow & " coincidencias"
'Si hay resultados
If Not IsNull(oResultado) Then
Do While oResultado.Next
'Mostramos el contenido del campo
MsgBox oResultado.getString(13)
Loop
End If
End If

y al momento de correr la aplicacion me marca un error en createUnoService (procedimiento sub o funcion no definida). Les agradeceria mucho me indicaran a que se debe este error.

Muchas Gracias.

[mauricio]

Te pregunta se ha contestado un par de veces, un ejemplo: https://forum.openoffice.org/es/forum/v ... sual+basic

Saludos