Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Option Explicit Private DatabaseH2 As New DataBase Import org#h2#Driver Private Sub dbInitialisieren() Dim dbH2 As String Dim driver As class dbH2 = "C:\Dokumente und Einstellungen\xy\Eigene Dateien\Soft Entwicklung\Jabaco\H2\test" dbH2 = Replace(dbH2, "", "/") driver = class.forName("org.h2.driver") If driver = Nothing Then MsgBox "h2 Treiber nicht vorhanden!", vbCritical, "" Exit Sub End If DatabaseH2.Connect("jdbc:h2:" & dbH2, "xy", "") End Sub |
Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
java.lang.ClassNotFoundException: org.h2.driver at java.net.URLClassLoader$1.run(Unknown Source) at java.security.AccessController.doPrivileged(Native Method) at java.net.URLClassLoader.findClass(Unknown Source) at java.lang.ClassLoader.loadClass(Unknown Source) at sun.misc.Launcher$AppClassLoader.loadClass(Unknown Source) at java.lang.ClassLoader.loadClass(Unknown Source) at java.lang.Class.forName0(Native Method) at java.lang.Class.forName(Unknown Source) at Form1.Initialization(Form1.jsrc:42) at Form1.Form_Load(Form1.jsrc:17) at VB.AbstractForm.fireLoaded(AbstractForm.jsrc) at VB.LoadAdapter.run(LoadAdapter.jsrc) at java.awt.event.InvocationEvent.dispatch(Unknown Source) at java.awt.EventQueue.dispatchEvent(Unknown Source) at java.awt.EventDispatchThread.pumpOneEventForFilters(Unknown Source) at java.awt.EventDispatchThread.pumpEventsForFilter(Unknown Source) at java.awt.EventDispatchThread.pumpEventsForHierarchy(Unknown Source) at java.awt.EventDispatchThread.pumpEvents(Unknown Source) at java.awt.EventDispatchThread.pumpEvents(Unknown Source) at java.awt.EventDispatchThread.run(Unknown Source) |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Jabaco Source |
|
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 |
Option Explicit #Import java.sql.* Public Sub Command1_Click() Dim conn As Connection Dim qry As String Dim st As java#sql#Statement Dim Meta As DatabaseMetaData Dim rs As ResultSet Dim tableNames As String Dim s As String Dim arr() As String java#lang#Class.forName("org.h2.Driver") conn = DriverManager.getConnection("jdbc:h2:~/test", "sa", "") If Not (conn Is Nothing) Then qry = "SELECT * FROM INFORMATION_SCHEMA.TABLES" st = conn.createStatement() rs = st.executeQuery(qry) Do While rs.next() tableNames = rs.getString(3) s = s & tableNames & vbCrLf Loop s = s & vbCrLf Meta = conn.getMetaData() rs = Meta.getTables(Null, Null, "%", arr) tableNames = "" Do While rs.next() tableNames = rs.getString(3) s = s & tableNames & vbCrLf Loop conn.close() MsgBox s Else MsgBox "No connection to DB!", vbCritical End If End Sub |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Option Explicit Private DatabaseH2 As New DataBase Import org#h2#Driver Private Sub dbInitialisieren() Dim dbH2 As String Dim driver As class dbH2 = "C:\Dokumente und Einstellungen\xy\Eigene Dateien\Soft Entwicklung\Jabaco\H2\test" dbH2 = Replace(dbH2, "", "/") driver = class.forName("org.h2.driver") If driver = Nothing Then MsgBox "h2 Treiber nicht vorhanden!", vbCritical, "" Exit Sub End If DatabaseH2.Connect("jdbc:h2:" & dbH2, "xy", "") End Sub |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Source code |
|
1 2 3 4 5 6 |
<Implements Name="java/io/FileDescriptor"/> <Implements Name="java/sql/Wrapper"/> <Implements Name="java/sql/ResultSet"/> <Implements Name="java/lang/ClassLoader"/> <Implements Name="java/sql/ResultSetMetaData"/> <Implements Name="java/sql/Connection"/> |
So hatte ich das bisher auch gemacht.Quoted
Eine andere Möglichkeit besteht darin, einfach ein neues Projekt aufzumachen und die alten Inhalte hinein zu kopieren.
Danach läuft das Programm dann ohne Fehler weiter; ruft Daten von einer H2 Datenbank ab, füllt eine Combobox, etc. Den ' sun.jdbc.odbc.JdbcOdbcDriver ' habe ich im Projekt nirgens refferenziert!Quoted
java.lang.ClassNotFoundException: sun.jdbc.odbc.JdbcOdbcDriver
at java.net.URLClassLoader$1.run(URLClassLoader.java:202)
at java.security.AccessController.doPrivileged(Native Method)
at java.net.URLClassLoader.findClass(URLClassLoader.java:190)
at java.lang.ClassLoader.loadClass(ClassLoader.java:307)
at sun.misc.Launcher$AppClassLoader.loadClass(Launcher.java:301)
at java.lang.ClassLoader.loadClass(ClassLoader.java:24
at java.lang.Class.forName0(Native Method)
at java.lang.Class.forName(Class.java:169)
at VB.DataBase.Class_Initialize(DataBase.jsrc)
at VB.DataBase.<init>(DataBase.jsrc)
at Form1.initVars(Form1.jsrc:3)
at Form1.<init>(Form1.jsrc)
at Module1.<clinit>(Module1.jsrc)
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Jabaco Source |
|
1 2 3 |
Public Sub Class_Initialize Call Class.forName("sun.jdbc.odbc.JdbcOdbcDriver") End Sub |
This post has been edited 1 times, last edit by "A1880" (Dec 1st 2010, 10:14am)
Trainee
Date of registration: Jul 11th 2014
About me: A beginner programmer.
Location: ...Jabaco Academy
Occupation: i have some but still not enough...
Hobbies: Jabaco