I would like to connect to external host from calc and send there some data from the spreadsheet. And I am got stuck on unsuccesfull connection. My code looks as follows:
Code: Select all
Sub send2DB
Dim oManager 'Connection driver manager.
Dim oCon 'Connection object.
Dim oResult 'Result from an SQL statement.
Dim oStatement 'A created statement that can execute SQL.
Dim sDatabaseName$
Dim sUserName$
Dim sUserPassword$
Dim sDatabaseHost$
Dim sURL$
Dim sSQL$
Dim oParams() As New com.sun.star.beans.PropertyValue
sDatabaseHost = "hostname.pl:3306/"
sDatabaseName = "dbname"
sUserName = "usrname"
sUserPassword = "passwd"
oManager = CreateUnoService("com.sun.star.sdbc.DriverManager")
AppendToPropertyArray(oParams(),"user",UserName)
AppendToPropertyArray(oParams(),"password",sUserPassword)
AppendToPropertyArray(oParams(),"JavaDriverClass","com.mysql.jdbc.Driver")
sURL = "sdbc:mysqlc:://" & sDatabaseHost & sDatabaseName
oCon = oManager.getConnectionwithInfo(sURL,oParams())
oStatement = oCon.CreateStatement()
End Sub
Any help will be appreciated