Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Funktion die ein Recordset zurückgibt in VB?
Autor: olimination
Datum: 01.09.02 20:57
Hallo zusammen! Ich möchte mir so eine Funktion (in Visual Basic) basteln, die als Rückgabewert ein Recordset(also das Ergebnis einer SQL Abfrage) zurückgibt. Ich habe da was versucht, doch es klappt irgendwie noch nicht so ganz...Ich verbinde mich zuerst mit einer MySQL Datenbank, dann mache ich eine Abfrage und möchte eben das Resultat dann zurückgeben. Hier der Code: ========================================================== Public Function MakeConnRead(server As String, database As String, user As String, pwd As String, sqlstatment As String) Dim Conn As ADODB.Connection Dim Rs As ADODB.Recordset Dim connstring As String connstring = "Driver=MySQL; Server=" + server + ";" + "Database=" + database + ";" 'Connection herstellen... Set Conn = New ADODB.Connection Conn.Provider = "MSDASQL" Conn.Mode = adModeRead Conn.Open connstring, user, pwd Conn.CursorLocation = adUseClient 'Abfrage machen... Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseClient Rs.Open sqlstatment, Conn, adOpenKeyset, adLockReadOnly MakeConnRead = Rs End Function ========================================================== Die Prozedur, die diese Funktion aufruft sieht folgendermassen aus: ========================================================== Private Sub Form_Load() Dim server As String, database As String, user As String, pwd As String Dim Datas As ADODB.Recordset Dim sql As String sql = "SELECT p.plz_zahl as PLZ, o.ort_name as Ort FROM plz as p JOIN ort as o WHERE p.ort_id = o.ort_id" server = mdlConnection.server database = mdlConnection.database user = mdlConnection.user pwd = mdlConnection.pwd Set Datas = New ADODB.Recordset Datas = mdlConnection.MakeConnRead(server, database, user, pwd, sql)'Hier wird die Funktion aufgerufen.... Set dgAdressen.DataSource = Datas End Sub =========================================================== Wäre cool, wenn jemand eine Lösung meines Problems hat. Danke. mfg olimination

Funktion die ein Recordset zurückgibt in VB?	98	olimination	01.09.02 20:57
Re: Funktion die ein Recordset zurückgibt in VB?	57	Jana	02.09.02 14:21
Re: Funktion die ein Recordset zurückgibt in VB?	47	olimination	02.09.02 20:02
Re: Funktion die ein Recordset zurückgibt in VB?	50	Jürgen	04.09.02 21:33
Re: Funktion die ein Recordset zurückgibt in VB?	36	olimination	05.09.02 18:25

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen