Dim URL As String
Dim SQLQueryString As String
Dim SearchString As String
Dim SQLStatement As String
Dim props(3) as new com.sun.star.beans.PropertyValue
Dim oConnection As Object
Dim oDriverManager As Object
Dim oResultset As Object
 
oDriverManager = createUnoService("com.sun.star.sdbc.DriverManager")
props(0).Name = "user"
props(0).Value = "YourName"
props(1).Name = "password"
props(1).Value = "Yourpassword"
props(2).Name = "JavaDriverClass"
props(2).Value = "com.informix.jdbc.IfxDriver"
 
'URL = "jdbc:informix-sqli://MyServer:MyPort/MySchema:INFORMIXSERVER=MyDB"
URL = "jdbc:informix-sqli://Server17:1571/User23:INFORMIXSERVER=servtest"
 
oConnection = oDriverManager.getConnectionWithInfo(URL , props)
oConnection.setAutoCommit(true)
 
SQLStatement = MyConnection.createStatement
 
SearchString = "xyz"
 
SQLQueryString = "SELECT name from Table_ABC where name like '%" & SearchString &"%' order by name"
oResultset = SQLStatement .executeQuery(SQLQueryString )
 
IF NOT ISNULL(oResultset ) THEN
   WHILE (oResultset.next )
     Msgbox(oResultset.getString(1))
     WEND 
   END IF 
oResultset.close