Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Public Sub cmdButton_Click() 'On Error Resume Next Dim strSQL As String Dim rSet As ResultSet strSQL ="SELECT * FROM Test" If Database1.ConnectMDB("C:\myMDB.mdb") Then rSet = Database1.ExecuteStatement(strSQL) rSet.getRow() rSet.moveToCurrentRow rSet.findColumn("Test1") text1.Text = rSet.getString(1)'?????????????? End If rset.close 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 22 23 24 25 |
Public Sub Command1_Click() ' DATABASE: myMDB.mdb ' |_ TABLE: test ' |_ FIELD 1: id ' |_ FIELD 2: test1 ' |_ FIELD 3: test2 Dim res As ResultSet Database1.ConnectMDB("C:\myMDB.MDB") Dim rows As Integer = 0 JBGrid1.Cols = 3 JBGrid1.Header(0) = "ID" JBGrid1.Header(1) = "Test1" JBGrid1.Header(2) = "Test2" res = Database1.ExecuteStatement("SELECT * FROM test") Do While res.next JBGrid1.TextMatrix(res.getRow() - 1, 0) = res.getString("id") JBGrid1.TextMatrix(res.getRow() - 1, 1) = res.getString("test1") JBGrid1.TextMatrix(res.getRow() - 1, 2) = res.getString("test2") rows = rows + 1 JBGrid1.Rows = rows Loop End Sub |
Trainee
Date of registration: Mar 13th 2009
Location: Oberirsen - Germany
Occupation: Senior Software Engineer
Hobbies: Programming aund Photography
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Dim ds As sun#jdbc#odbc#ee#DataSource Set ds = New sun#jdbc#odbc#ee#DataSource() ds.setDatabaseName("Test") Dim sta As java#sql#Statement Set sta = ds.getConnection().createStatement() Dim res As java#sql#ResultSet Set res = sta.executeQuery("SELECT * FROM Test") Do Until Not res.next() Debug.Print res.getString("Test1") Debug.Print res.getInt("Test2") Loop ds.getConnection().close() |
Source code |
|
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 |
Exception in thread "AWT-EventQueue-1" java.lang.Exception: CallByName 'getString' failed! at VBA.Interaction.CallByName(Interaction.java:182) at VBA.Interaction.CallByName(Interaction.java:180) at VBA.Interaction.CallByName(Interaction.java:171) at Form1.Command1_Click(Form1.jsrc:21) at Form1$CommandButton._Click(Form1.jsrc:27) at VB.CommandButton.actionPerformed(CommandButton.jsrc:96) at javax.swing.AbstractButton.fireActionPerformed(AbstractButton.java:1995) at javax.swing.AbstractButton$Handler.actionPerformed(AbstractButton.java:2318) at javax.swing.DefaultButtonModel.fireActionPerformed(DefaultButtonModel.java:387) at javax.swing.DefaultButtonModel.setPressed(DefaultButtonModel.java:242) at javax.swing.plaf.basic.BasicButtonListener.mouseReleased(BasicButtonListener.java:236) at java.awt.AWTEventMulticaster.mouseReleased(AWTEventMulticaster.java:272) at java.awt.Component.processMouseEvent(Component.java:6216) at javax.swing.JComponent.processMouseEvent(JComponent.java:3265) at java.awt.Component.processEvent(Component.java:5981) at java.awt.Container.processEvent(Container.java:2041) at java.awt.Component.dispatchEventImpl(Component.java:4583) at java.awt.Container.dispatchEventImpl(Container.java:2099) at java.awt.Component.dispatchEvent(Component.java:4413) at java.awt.LightweightDispatcher.retargetMouseEvent(Container.java:4556) at java.awt.LightweightDispatcher.processMouseEvent(Container.java:4220) at java.awt.LightweightDispatcher.dispatchEvent(Container.java:4150) at java.awt.Container.dispatchEventImpl(Container.java:2085) at java.awt.Window.dispatchEventImpl(Window.java:2475) at java.awt.Component.dispatchEvent(Component.java:4413) at java.awt.EventQueue.dispatchEvent(EventQueue.java:599) at VBA.JabacoEventQueque.dispatchEvent(JabacoEventQueque.java:20) at java.awt.EventDispatchThread.pumpOneEventForFilters(EventDispatchThread.java:269) at java.awt.EventDispatchThread.pumpEventsForFilter(EventDispatchThread.java:184) at java.awt.EventDispatchThread.pumpEventsForHierarchy(EventDispatchThread.java:174) at java.awt.EventDispatchThread.pumpEvents(EventDispatchThread.java:169) at java.awt.EventDispatchThread.pumpEvents(EventDispatchThread.java:161) at java.awt.EventDispatchThread.run(EventDispatchThread.java:122) |
Trainee
Date of registration: Mar 13th 2009
Location: Oberirsen - Germany
Occupation: Senior Software Engineer
Hobbies: Programming aund Photography