Thursday, May 17th 2012, 5:19pm UTC+2

You are not logged in.

  • Login
  • Register

Ephestion

Beginner

Posts: 5

1

Tuesday, June 23rd 2009, 10:51am

How to read a MDB database?

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


My fields are ID, Test1, Test2 in the table Test in the database myMDB.mdb.

All i want to know is how do i return a value from a specific field eg Row 1 Column 1 of ResultSet?

gabizzz

Beginner

Posts: 5

Location: Argentina

2

Wednesday, June 24th 2009, 7:07pm

http://www.jabaco.de/board/35-datenbank-anbinden.html

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

StefanSchnell

Trainee

Posts: 95

Location: Oberirsen - Germany

Occupation: Software Engineer

3

Wednesday, June 24th 2009, 10:45pm

Hello Ephestion,
welcome at Jabaco.
Here is another solution with the JDBC-ODBC-Bridge:

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()


But with this solution it is necessary to configure the database file in the ODBC configuration.

Cheers
Stefan

Ephestion

Beginner

Posts: 5

4

Friday, July 10th 2009, 3:22pm

I seem to be getting errors all the time: From what I gather the getString function always fails me. Also for some reason it will not allow me to use the line "Dim res as ResultSet".

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)

StefanSchnell

Trainee

Posts: 95

Location: Oberirsen - Germany

Occupation: Software Engineer

5

Friday, July 10th 2009, 11:26pm

Hello Ephestion,
try the following:
Press F1 and select the node sql below java in the tree, press the accept button and execute the program again.

Do you add the test database to your ODBC configuration? Open control, select administration and select datasource (ODBC). You see the dialog ODBC datasource administrator and the tab User-DSN is active. In the user datasource you must see your database with the correct name - in my example Test. Look at the image in the attachment.

Hope it helps. Please let us know the solution.

Cheers
Stefan
StefanSchnell has attached the following image:
  • ODBC.jpg

Ephestion

Beginner

Posts: 5

6

Sunday, July 12th 2009, 10:26am

Ok im trying the non ODBC example but I updated the references and it seems to work now. The only problem I am having now is assigning values from the ResultSet into text boxes. I don't want the JGrid object because I want to build a GUI and prefer to have Text Boxes or Labels display the results.

Text1.Text = res.getString("id") or text1.Text = CSTR(res.getString("id")) doesnt work.

Similar threads

Rate this thread
WoltLab Burning Board