Datenbank anbinden

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.

itachim

Beginner

Posts: 2

Date of registration: Nov 25th 2008

Location: Melle, Germany

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

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

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