ODBC בתוך VB6

[dudiku]

ODBC בתוך VB6

מחפש מאמר או Tutorial על כיצד לחבר DB של Access באמצעות ODBC לתוך VB6. אם במאמר יופיעו עם הפקודות הנפוצות הרווח יהיה כפול. תודה, דודי.

 

[שינאל]

קבל דוגמה, מאמר? לא יודע

כתוב פונקציה כללית שתוכל לנהשתמש בה תמיד: הגדרת הקונקשיין כאשר GLBDbDIr מיקום ה DB

Public Sub InitOdbc() Set cn = New ADODB.Connection On Error GoTo ErrHdl If GLBDbDIr = "" Then GLBDbDIr = App.Path & "\Data\S2000.mdb" GlbConnStr = "DSN=Solan2000H;DBQ=" & GLBDbDIr & ";DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin" cn.Open GlbConnStr Exit Sub ErrHdl: MsgBox "The database not found! SOLAN-FONE 2000 must close now.", vbCritical End End Sub​

ופונקציה לפתיחת טבלה

Public Sub InitRecordSet(rs As ADODB.Recordset, RsSql As String) Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.Open RsSql, cn End Sub​

כמובן תצטרך להגדיר את ה-ODBC דרך הקונטרול פנל. אפשר לעשות זאת באמצעות קוד.