S.A
پنج شنبه 13 اسفند 1383, 15:12 عصر
شما را به خدا یکی به داد من برسد. برنامه نوشتم همه چیز درست کار می کند اما برای ساخت Setup روالی برای Connectionstring نوشتم اما Provider Jet را نمی شناسد. این دفعه سومی است که از شما دوستان در این مورد کمک می خواهم. قبلا هم تاپیکی با عنوان مشکل با موتور Jet داشتم. باز هم می گویم من با DED کار کردم. روال Connect به پایگاه را اینجا می نویسم اگر اشکال را متوجه شدید تورا به خدا زودتر خبرم کنید. qoqnos2003@yahoo.com
Option Explicit
Private Const Provider = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False"
Private Const DataSource1 = "Data Source="
Private Const DataSource2 = "\Laboratory.mdb"
Public LoginSucceeded As Boolean
Public Sub DEDConnect()
'
On Error GoTo localerr
'
With deLabVirus.cnnLabVirus
.Mode = adModeReadWrite
.CursorLocation = adUseClient
.ConnectionString = Provider & ";" & DataSource1 & App.Path & DataSource2
End With
'
With deLaboratory.conLaboratory
.Mode = adModeReadWrite
.CursorLocation = adUseClient
.ConnectionString = Provider & ";" & DataSource1 & App.Path & DataSource2
End With
'
Exit Sub
'
localerr:
MsgBox Err.Description, vbCritical, "Error:" & CStr(Err.number)
'
End Sub
این روال را در رویداد Initalise فرخوانی کردم. مسیر بانک را می شناسد مطمئن هستم اما Provider Jet را نمی شناسد. حتی data access های جدید را از مایکروسافت دانلود کردم اما بازهم نمی شناسد.
Option Explicit
Private Const Provider = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False"
Private Const DataSource1 = "Data Source="
Private Const DataSource2 = "\Laboratory.mdb"
Public LoginSucceeded As Boolean
Public Sub DEDConnect()
'
On Error GoTo localerr
'
With deLabVirus.cnnLabVirus
.Mode = adModeReadWrite
.CursorLocation = adUseClient
.ConnectionString = Provider & ";" & DataSource1 & App.Path & DataSource2
End With
'
With deLaboratory.conLaboratory
.Mode = adModeReadWrite
.CursorLocation = adUseClient
.ConnectionString = Provider & ";" & DataSource1 & App.Path & DataSource2
End With
'
Exit Sub
'
localerr:
MsgBox Err.Description, vbCritical, "Error:" & CStr(Err.number)
'
End Sub
این روال را در رویداد Initalise فرخوانی کردم. مسیر بانک را می شناسد مطمئن هستم اما Provider Jet را نمی شناسد. حتی data access های جدید را از مایکروسافت دانلود کردم اما بازهم نمی شناسد.