بانك اطلاعاتي در vb بعد از انتقال به كامپيوتر ديگه اجرا نمي شه

[re_elhami_27]

بانك اطلاعاتي در vb بعد از انتقال به كامپيوتر ديگه اجرا نمي شه
در صورت امكان با توضيحات كامل و سورس نمونه بهم بدين لطفا!! :biggrin:

[HAW3D]

اقا اول بگو با چه روشي بانك داده ات را به كار گرفتي
دوم اينكه خطاي برنامهات در دستگاه ديكر چيست
سوم سورس برنامهات را بزار اگه شد باگش را ميگيريم
ٍٍEEart

[re_elhami_27]

Private Sub Form_Activate()
Data1.Recordset.AddNew
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\telbank.mdb"

End Sub

Private Sub Form_Unload(Cancel As Integer)
Screen.MousePointer = vbDefault
End Sub
Private Sub cmdAdd_Click()
On Error GoTo AddErr

If Combo1.ListIndex = 0 Then
txtFields(4) = "ãÓßæäí"
End If
If Combo1.ListIndex = 1 Then
txtFields(4) = "ÊÌÇÑí"
End If
If Combo1.ListIndex = 2 Then
txtFields(4) = "ãæÈÇíá"
End If

Data1.Recordset.AddNew
Combo1.Text = "ÇäÊÎÇÈ ßäíÏ"
Exit Sub
AddErr:
a = MsgBox("ÎØÇ ÏÑ æÑæÏ ÇØáÇÚÇÊ", vbExclamation, "ÎØÇ")

End Sub
Private Sub cmdRefresh_Click()
'This is only needed for multi user apps
On Error GoTo RefreshErr
Data1.Refresh
Exit Sub
RefreshErr:
a = MsgBox("ÎØÇ ÏÑ ÊÌÏíÏ ÇØáÇÚÇÊ", vbExclamation, "ÎØÇ")
End Sub


Private Sub cmdClose_Click()

Unload Me
End Sub

[re_elhami_27]

Private Sub Form_Activate()
Data1.Recordset.AddNew
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\telbank.mdb"

End Sub

Private Sub Form_Unload(Cancel As Integer)
Screen.MousePointer = vbDefault
End Sub
Private Sub cmdAdd_Click()
On Error GoTo AddErr

If Combo1.ListIndex = 0 Then
txtFields(4) = "ãÓßæäí"
End If
If Combo1.ListIndex = 1 Then
txtFields(4) = "ÊÌÇÑí"
End If
If Combo1.ListIndex = 2 Then
txtFields(4) = "ãæÈÇíá"
End If

Data1.Recordset.AddNew
Combo1.Text = "ÇäÊÎÇÈ ßäíÏ"
Exit Sub
AddErr:
a = MsgBox("ÎØÇ ÏÑ æÑæÏ ÇØáÇÚÇÊ", vbExclamation, "ÎØÇ")

End Sub
Private Sub cmdRefresh_Click()
'This is only needed for multi user apps
On Error GoTo RefreshErr
Data1.Refresh
Exit Sub
RefreshErr:
a = MsgBox("ÎØÇ ÏÑ ÊÌÏíÏ ÇØáÇÚÇÊ", vbExclamation, "ÎØÇ")
End Sub


Private Sub cmdClose_Click()

Unload Me
End Sub
سورس برنتمه من اينه (ورود اطلاعات با بانك اكسس)
در صورت امكان دي باگ كنيد . ممنون

[HAW3D]

مرگ من بيا خود برنامه ات را بزار ما هم راحت بشيم
عزيزم ما دوباره باير بيايم پايگاه دادهات را درست كنيم
اگه لينك اپلود نداري برو
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
عضو شو ميتوني فايلهايت را آپلود كني
EEart

[re_elhami_27]

پس آدرس ايميل بزار

[Soda]

بابا اين چه كاريه
باگ نداره كه بخواد ديباگ بشه !
شما ببين من چي ميگم اگه درست نشد اونوقت برو سراغ كارهاي ديگه
اولا شما باكدوم برنامه بانك اطلاعاتي رو درست كردي Access 97 يا Access 2000 يا اكسس 2003 ؟

[re_elhami_27]

خوب كار نمي كنه ديگه چي كار كنم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟
نمي دونو روي كامپيوتر من اكسس 2003 نصب است
و من با گزينه 7.0 ويژوال بيسيك استفاده كرده ام

[Soda]

يعني با برنامه كمكي همراه خود ويژوال بيسيك ساختيش ؟
منوي Add-in و گزينه Visual Data Manager ؟

[HAW3D]

ببین خطای برنامه ات در سیستم دیکر اگر مربوط به پیدا نکردن فایل وغیره است یا
class not registered
انوقت بیا برای برنامهات یک پکیج نصب درست کن
از منوی
addins > addins-manager > pakage and Deployment wizard
را تیک بزن پکیجت را درست کن احتمالا مشکلت حل شود
EEart