Okay, without ODBC DSN it works as follows: ==
// Download the DB2 Client driver zip file (CLI Driver) and unpack its contents to the desktop: // https://www-304.ibm.com/support/docview.wss?rs=4020&uid=swg21385217&wv=1 dim db as new SQLDatabaseMBS Dim f as FolderItem f = SpecialFolder.Desktop.Child("clidriver").Child("bin").Child("db2cli.dll") db.SetFileOption SQLConnectionMBS.kOptionLibraryDB2, f db.DatabaseName="DB2:Driver={IBM DB2 ODBC DRIVER};Database=SAMPLE;" _ +"Hostname=172.16.138.172;Port=50000; Protocol=TCPIP; Uid=db2admin;Pwd=somepassword;" if db.Connect then MsgBox "We are connected!" MsgBox "Server Version: "+db.GetConnection.ServerVersionString db.Close else MsgBox db.ErrorMessage end if == Oliver _______________________________________________ Mbsplugins_monkeybreadsoftware.info mailing list [email protected] https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
