Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Code Modular aufbauen
Autor: Sathoan
Datum: 12.10.04 09:55
Hallo, ich habe ein (hoffentlich kleines) Problem als noob in VBA.... ich bastel mir gerade ein Frontend für DB abfragen - nun ist es naturgemäß so das ich den Verbindungsaufbau bzw. die Abfrage oft brauche - und da wäre es doch Sinnvoll diese als eigenes "Modul" "auszulagern" - mein Problem jetzt -> Wie mache ich das unter Acc97 ????? Hier mal was ich bisher habe: Das "Modul": Function Connect(SQL As String) As Recordset Dim cn As ADODB.Connection Dim rcSet As New ADODB.Recordset Set cn = New ADODB.Connection cn.ConnectionString = "Provider=MSDASQL;" + _ "DRIVER={MySQL ODBC 3.51 Driver};" + _ "Server=localhost;UID=root;PWD=;" + _ "database=triaton; Option=16387" 'option=16387 ist für int und bigint kompatibilität cn.Open cn.BeginTrans cn.CommandTimeout = 120 cn.CursorLocation = adUseServer rcSet.ActiveConnection = cn rcSet.CursorLocation = adUseServer rcSet.Open SQL, cn, adOpenForwardOnly, adLockReadOnly Connect = rcSet End Function Und das hier soll der Aufruf werden: rcSet = Connect(abfrPVT) Set rcSet2 = db.OpenRecordset("PreisVolPos", dbOpenTable) rcSet.MoveFirst While Not rcSet.EOF rcSet2.AddNew rcSet2![PreisVolPos] = rcSet.Fields("PreisVolPos") rcSet2.Update rcSet.MoveNext Wend aber leider meckert er nur herum das die Verwendung nicht richtig ist (kann ich noch nachvollziehen da es rcSet ja schon gibt - aber was tun???? hat jmd. evtl. eine gute Idee oder noch besser ein Bsp.?? Nec scire fas est omnia!

Code Modular aufbauen	689	Sathoan	12.10.04 09:55
Re: Code Modular aufbauen	388	teccer	22.10.04 07:52

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