Datenbank anbinden

itachim

Beginner

Posts: 2

Date of registration: Nov 25th 2008

Location: Melle, Germany

1

Friday, November 28th 2008, 10:27pm

Tach Zusammen,

mein erster Eindruck von Jabaco? ECHT COOL! :thumbup:

Hier meine Frage:
Wie bindet man eine Datenbank z.B. ODBC oder eine mdb an und befüllt dann ein Grid oder Textfeld

Vielleicht so?

database1.ConnectMDB "personal.mdb"
database1.ExecuteStatement "SELECT ma_name from ma_personal"

und dann :?:

Danke schonmal für eine freundliche Antwort...

itachim

Go to the top of the page

Peter

Trainee

Posts: 69

Date of registration: Nov 24th 2008

Location: Cologne, Germany

Occupation: Second Vice President of Distributed Junk and Trash Development

2

Sunday, November 30th 2008, 5:44pm

RE: Datenbank anbinden

Hallo itachim,

ExecuteStatement() liefert ein ResultSet zurück.

als in etwa so:

	Jabaco Source
1 2 3 4	If database1.ConnectMDB("personal.mdb") Then Dim RS As ResultSet RS = database1.ExecuteStatement("SELECT ma_name from ma_personal") [...]

Grüße ... Peter

Go to the top of the page

Manuel

Administrator

Posts: 256

Date of registration: Jul 16th 2008

Location: Erlangen, Germany

Occupation: Software Developer

Hobbies: Jabaco, game theory, text-mining

3

Monday, December 1st 2008, 10:39pm

Hier mal Beispiel mit für DB:

Jabaco Source

Public Sub Command1_Click()
   ' DATABASE: personal.mdb
   '  |_ TABLE: ma_personal
   '	|_ FIELD 1: ma_key
   '	|_ FIELD 2: ma_persnr
   '	|_ FIELD 3: ma_anrede
   '	|_ FIELD 4: ma_vorname
   '	|_ FIELD 5: ma_name
   
   
   Dim res As ResultSet
   Database1.ConnectMDB("C:\Users\Manuel\Desktop\personal.mdb")
   
   Dim rows As Integer = 0
   JBGrid1.Cols = 5   
   JBGrid1.Header(0) = "ma_key"
   JBGrid1.Header(1) = "ma_persnr"
   JBGrid1.Header(2) = "ma_anrede"
   JBGrid1.Header(3) = "ma_vorname"
   JBGrid1.Header(4) = "ma_name"
   
   res = Database1.ExecuteStatement("SELECT * FROM ma_personal")
   Do While res.next
  	JBGrid1.TextMatrix(res.getRow() - 1, 0) = res.getString("ma_key")
  	JBGrid1.TextMatrix(res.getRow() - 1, 1) = res.getString("ma_persnr")
  	JBGrid1.TextMatrix(res.getRow() - 1, 2) = res.getString("ma_anrede")
  	JBGrid1.TextMatrix(res.getRow() - 1, 3) = res.getString("ma_vorname")
  	JBGrid1.TextMatrix(res.getRow() - 1, 4) = res.getString("ma_name")
  	rows = rows + 1
  	JBGrid1.Rows = rows
   Loop
End Sub