is it possible to connect to a not register DB?

[briglia23]

is it possible to connect to a not register DB by macro?

Thanks

[pitonyak]

Yes
_________________
--
Andrew Pitonyak
http://www.pitonyak.org/oo.php

[pitonyak]

See here:

http://www.pitonyak.org/database/AndrewBase.odt
_________________
--
Andrew Pitonyak
http://www.pitonyak.org/oo.php

[briglia23]

I read your document an i have a question.

To connect to Db i use this code

[briglia23]

why this code doesn't works?

[Lew Wadoo]

[briglia23]

Solved, the path wasn't ok

odbURL = convertFromURL("C:\Utenti\yacme\Documenti\") KO

odbURL = convertFromURL("C:\Users\yacme\Documents\") OK

Thank you.

[Amin405]

OK this is good, but what command I should use for existing MySQL database with username of "root" and address of "localhost"
_________________
Amin

[QuazzieEvil]

First, you need to create an *.ODB file that connects to your db server at said host and port. Then proceed to access the ODB file with

[Amin405]

I have put the following code:


Sub Main

Dim oBaseContext 'Global database context.
Dim oDataSource 'Data source for the specified database.
Dim oCon 'Connection to a database.
Dim sUser$ 'User name while connecting.
Dim sPassword$ 'Password while connections.

REM Set the user name and password for connection.
REM There is no user or password required so set to an empty string.
sUser = "root"
sPassword = ""

oBaseContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
odbURL = convertFromURL("H:\Project\Spreadsheet\")
oDataSource = oBaseContext.getByName(odbURL & "test.odb")
oCon = oDataSource.getConnection(sUser, sPassword)
oCon.close()

End Sub

But when it reaches this line:

oDataSource = oBaseContext.getByName(odbURL & "test.odb")

it says:
BASIC runtime error.
An exception occurred
Type:com.sun.star.container.NoSuchElementException
Message: H\Project\Spreadsheet\test.odb

I have tried your code QuazzieEvil
with that I get same error, but I'm not sure I typed it correctly:
Sub Main

Dim oBaseContext 'Global database context.
Dim oDataSource 'Data source for the specified database.
Dim oCon 'Connection to a database.
Dim sUser$ 'User name while connecting.
Dim sPassword$ 'Password while connections.

sUser = "root"
sPassword = ""

oBaseContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
odbURL = convertFromURL("H:\Project\Spreadsheet\test.odb")
oDataSource=oBaseContext.getByName(url)
oCon = oDataSource.getConnection(sUser, sPassword)
oCon.close()

End Sub

Actually what I'm looking for is that I would like to connet each cell of spreadsheet to correspond value in MySQL database
_________________
Amin

[QuazzieEvil]

Your problem may be that you are using convert FromURL(..) rather than convertToURL(...)
_________________
Free Docs @ http://www.baseprogramming.com/resources.html
Book @ lulu.com http://www.lulu.com/content/2455551

[Amin405]

Nope, I tried, still same problem.
_________________
Amin

[Amin405]

Is there any code that have access to a certain value in the MySQL database?

e.g. database name="Test"; Table name="BOOK"; Field="ID"; Value="5632723"

How do we write such a sql code in calc macro to have access to desired database: