PowerBuilder Connect MS-Access Database Using JDBC
Step 1: Get driver JDBC MS-Access Database ucanaccess-X.X.X.jar from page : http://ucanaccess.sourceforge.net/site.html
Step 2: Set Class Path driver to environment variables or set class path to runtime of java
Step 3: Test Connect
Step 4: Copy jre current version of java to your pbapp runtime
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 |
String ls_path, ls_classpath Boolean lb_jvm_started, lb_debug javavm ljvm ls_path = GetCurrentDirectory ( ) // set classpath or you can environment variables of window ls_classpath = ls_path + "\UCanAccess\ucanaccess-4.0.4.jar" If Not FileExists(ls_classpath) Then MessageBox('Warning',"driver class file not exists") Return End If // add libary ls_classpath = ls_classpath + ";" + ls_path +"\UCanAccess\lib\commons-logging-1.1.3.jar" ls_classpath = ls_classpath + ";" + ls_path +"\UCanAccess\lib\hsqldb.jar" ls_classpath = ls_classpath + ";" + ls_path +"\UCanAccess\lib\jackcess-2.1.11.jar" ls_classpath = ls_classpath + ";" + ls_path +"\UCanAccess\lib\commons-lang-2.6.jar" If Not lb_jvm_started Then ljvm = Create javavm //using pbejbclientXXX.pbd Choose Case ljvm.createJavaVM(ls_classpath, lb_debug) Case 0 lb_jvm_started = True Case -1 MessageBox('Warning',"Failed to load JavaVM") Return Case -2 MessageBox('Warning',"Failed to load EJBLocator") Return End Choose End If // Get infor String ls_url, ls_database, ls_user, ls_pass ls_user = "admin" ls_pass = "pass" ls_database = "database file .mdb or .accdb" ls_url = "jdbc:ucanaccess://"+ ls_database //connect Transaction ltran_conn ltran_conn = Create Transaction ltran_conn.DBMS = "JDBC" ltran_conn.LogPass = ls_pass ltran_conn.LogID = ls_user ltran_conn.AutoCommit = False ltran_conn.DBParm = "Driver='net.ucanaccess.jdbc.UcanaccessDriver',URL='"+ls_url+"'" Connect Using ltran_conn ; If ltran_conn.SQLCode = -1 Then MessageBox('Warning','Connect Database Error' + ltran_conn.SQLErrText) Else MessageBox('Warning',"Connect Success!") End If Disconnect Using ltran_conn ; |
Find Projects On Github click here
Good Luck!
Subscribe
Login
0 Comments
Oldest