پایگاه داده و رجیستر و...

[setarekh]

با سلام به همه دوستان عزیز
من خیلی تو سایت سرچ کردم اما به جواب درست حسابی نرسیدم
من تو برنامه م از بانک اکسس استفاده کردم و وقتی روی یه سیستم دیگه اونو اجرا میکنم بانکم اجرا نمیشه میگن باید رجیستر کنم نمی دونم چطوری یعنی نمی دونم فایل dll , ocx از کجا بیارم لطفا یه راهنمایی مفصل کنید
مرسی از لطفتون.:خجالت::گیج::گیج:

[sehm67]

من خیلی تو سایت سرچ کردم اما به جواب درست حسابی نرسیدم
من تو برنامه م از بانک اکسس استفاده کردم و وقتی روی یه سیستم دیگه اونو اجرا میکنم بانکم اجرا نمیشه میگن باید رجیستر کنم نمی دونم چطوری یعنی نمی دونم فایل dll , ocx از کجا بیارم لطفا یه راهنمایی مفصل کنید
مرسی از لطفتون.

سلام

از چه ورژنی استفاده میکنید ؟

اگه از 2007 استفاده می کنید به اینجا سری بزنید :

http://barnamenevis.org/showthread.php?312661-%D8%A7%D9%86%D8%AA%D8%AE%D8%A7%D8%A8-%D9%BE%D8%A7%DB%8C%DA%AF%D8%A7%D9%87-%D8%AF%D8%A7%D8%AF%D9%87-%D8%A8%D8%B1%D8%A7%DB%8C-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87

موفق باشید.

[MohammadGh2011]

سلام عليکم
شما فايل نصب (Setup) براي پروژتون ساختيد؟ يا همينطوري اجراش ميکنيد.
و چه خطايي رخ ميدهد؟

[aminaltavista]

سلام
دوست عزيز دوات ژيش خودمه!:خجالت:
ببين اين رجيستر كردنها به نظر من همش حرفه..!
علت دارم ، يه مدت طولاني شايد بيش از چند ده بار با نرم افزار هاي مختلف وقدرتمند مثل اينستال شيلد ستاپ ساختم اما هنگام نصب روي پي سي هاي ديگه واجراي برنامه اين پيغام رو بهم ميدادcan't initialize data binding .
اگر كه برنامه شما هم همين ‍پيغام رو ميده يه فايل dll هست كه موقع ساخت ستاپ بايد تو مسير system 32 فولدر ويندوز كپيش كني
اسمش MSDBRPTR.DLL هست. اگه اين فايل سيستمي رو پيدا نكردي بهم ميل بزن تا برات بفرستمش!

[setarekh]

سلام من اون فایل تو سیستم32 پیدا نکردم
لطفا واسم ایمیل کنید setareh_kh1989@yahoo.com
خطایی که سیستم میده اینه:
Run time error '91:object variable or with block variable not set

[sehm67]

سلام من اون فایل تو سیستم32 پیدا نکردم
لطفا واسم ایمیل کنید setareh_kh1989@yahoo.com
خطایی که سیستم میده اینه:
Run time error '91:object variable or with block variable not set

سلام

78250

موفق باشی .

[setarekh]

سلام دوستان همچنان مشکلم حل نشد
تا زمانی که وی بی و اکسس رو سیستمم نصب نباشه جدول برنامه م چیزی نشون نمی ده چکار کنم(کل برنامه م درست اجرا می شه ها فقط جدوالم خالی نشون می ده).
:متفکر::متفکر::متفکر::متفکر::� �تفکر::متفکر::متفکر::متفکر::م� �فکر::متفکر::متفکر::متفکر::مت� �کر::متفکر:
:گریه::گریه::گریه::گریه::گریه: :گریه::گریه::گریه::گریه::گریه: :گریه:
:افسرده::افسرده::افسرده::افس� �ده::افسرده::افسرده::افسرده::� �فسرده::افسرده::افسرده::افسر� �ه::افسرده::افسرده:

[M.T.P]

از DataGrid استفاده کردی؟
اون قسمت از برنامه که جدول رو نشون میده ، کدش رو بگذار..

[setarekh]

سلام مجدد به همه دوستان
فکر نمیکنم کد برنامه م مشکل داشته باشه چون اگه اکسس و وی بی نصب باشه برنامه م کاملا درست اجرا می شه احتمالا مشکلم تو رجیسترش باشه اما چشم کد برنامه مو هم میذارم و منتظر کمکتون می مونم
مرسی دوستان گلم:خجالت:


Private Sub Command5_Click()
m.URL = App.Path + "\" + "help" + "\" + "audio" + "\" + "bogh.wav"
Form3.Show
Unload Me
End Sub
Private Sub Command6_Click()
m.URL = App.Path + "\" + "help" + "\" + "audio" + "\" + "bogh.wav"
Form13.Show
Unload Me
End Sub
Private Sub back_Click()
m.URL = App.Path + "\" + "help" + "\" + "audio" + "\" + "bogh.wav"
Form13.Show
Unload Me
End Sub
Private Sub home_Click()
m.URL = App.Path + "\" + "help" + "\" + "audio" + "\" + "bogh.wav"
Form3.Show
Unload Me
End Sub
Private Sub comadd_Click()
m.URL = App.Path + "\" + "audio" + "\" + "bogh.wav"
If Text1.Text = Ado.Recordset.Fields(0) Or Text2.Text = Ado.Recordset.Fields(1) Then
MsgBox "ÇØáÇÚÇÊ Ê˜ÑÇÑí ÇÓÊ", vbOKOnly + vbCritical, " ÊæÌå"
Text1.Text = ""
Text2.Text = ""
End If
If Text1.Text = "" Then
a = MsgBox(" áØÝÇ äÇã ˜æÑÏ ÑÇ æÇÑÏ äãÇííÏ", vbOKOnly + vbExclamation, "ÎØÇ")
Text1.SetFocus
ElseIf Text2.Text = "" Then
a = MsgBox(" áØÝÇ äãÇíÔ Â˜æÑÏ ÑÇ æÇÑÏ äãÇííÏ", vbOKOnly + vbExclamation, "ÎØÇ")
Text2.SetFocus
Else
Ado.RecordSource = "select * from ab"
Ado.Recordset.AddNew
Ado.Recordset.Fields(0) = Text1.Text
Ado.Recordset.Fields(1) = Text2.Text
'Ado.Recordset.AddNew
Ado.Recordset.Update
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
search.Visible = True
del.Visible = True
all.Visible = True
'On Error GoTo dc
'dc:
'If Err.Number = "-2147467259" Then
'MsgBox "ÇØáÇÚÇÊ Ê˜ÑÇÑí ÇÓÊ", vbOKOnly + vbCritical, " ÊæÌå"
'End If
End Sub
'
'del
'm1.URL = App.Path + "\" + "audio" + "\" + "bogh.wav"
'If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then
'a = MsgBox(" јæÑÏí ÈÑÇí ÍÐÝ æÌæÏ äÏÇÑ Ï ", vbOKCancel + vbExclamation, "ÎØÇ")
'del.Visible = False
'search.Visible = False
'cmopen.Visible = False
'Else
'Adodc1.RecordSource = "Delete * from film1 where onvan='" & Text1.Text & "'"
''adodc1.Refresh
'Adodc1.Recordset.Delete
'Adodc1.Recordset.Update
'm.URL = ""
''adodc1.Refresh
'End If
'On Error GoTo novalu
'novalu:
'If Err.Number = "3021" Then
'c = MsgBox("јæÑÏí æÌæÏ äÏÇÑÏ", vbOKOnly, "ÊæÌå")
'End If
'

Private Sub del_Click()
m.URL = App.Path + "\" + "help" + "\" + "audio" + "\" + "bogh.wav"
On Error GoTo novalu
novalu:
If Err.Number = "3021" Then
c = MsgBox("јæÑÏí æÌæÏ äÏÇÑÏ", vbOKOnly, "ÊæÌå")
End If
'Ado.Recordset.Update
Ado.Recordset.Delete
'Ado.Refresh
Ado.Recordset.Update
'Ado.Refresh
End Sub
Private Sub search_Click()
m.URL = App.Path + "\" + "help" + "\" + "audio" + "\" + "bogh.wav"
If Text1.Text = "" Then
a = MsgBox("áØÝÇ äÇã јæÑÏ ÑÇ æÇÑÏ ˜äíÏ", vbOKCancel + vbExclamation, "ÎØÇ")
Else
Ado.RecordSource = "select * from Ab where nakordi like'%" & Text1.Text & "%'"
Ado.Refresh
all.Enabled = True
End If
End Sub
Private Sub all_Click()
m.URL = App.Path + "\" + "help" + "\" + "audio" + "\" + "bogh.wav"
Ado.RecordSource = "select * from ab"
Ado.Refresh
Ado.Recordset.Update
End Sub
Private Sub Form_Load()
If Form2.flag = False Then
Frame1.Visible = False
ElseIf Form2.flag = True Then
Frame1.Visible = True
End If
Text1.FontSize = 18
'Text1.FontName = "2 Shadi"
Text1.FontBold = True
Text2.FontSize = 18
'Text2.FontName = "2 Shadi"
Text2.FontBold = True
all.Enabled = False
On Error GoTo novalu
novalu:
If Err.Number = "3021" Then
c = MsgBox("јæÑÏí æÌæÏ äÏÇÑÏ", vbOKOnly, "ÊæÌå")
End If
'On Error GoTo repeat
Ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False"
Ado.RecordSource = "select * from ab"
'repeat:
'If Err.Number = "-2147217842" Then
' b = MsgBox("ÇØáÇÚÇÊ Ê˜ÑÇÑí ÇÓÊ", vbOKOnly, "ÊæÌå")
'Text1.Text = ""
'Text2.Text = ""
' End If
End Sub

[setarekh]

در ضمن من از برنامه م فایل ستاپ ساختم با نرم افزار qsetup
و البته از datagrid ,adodc هم استفاده کردم.

[M.T.P]

سلام ، چرا کدهاتون رو فرمت بندی نمی کنید؟

اگه ممکنه پروژه رو ضمیمه کنید ، هیچی معلوم نیست.

[setarekh]

سلام پروژم حجمش زیاد نمی تونم بذارمش چیزی به ذهنتون نمی رسه؟
بازم میگم فکر نمی کنم سورسم مشکل داشته باشه احتمالا رجیسترش مشکل داره؟؟؟:متفکر::متفکر::متفکر:

[setarekh]

کسی چیزی به ذهنش نمی رسه؟؟؟؟؟؟؟؟؟؟؟؟

[M.T.P]

خب اینطور که معلومه شما از Adodc استفاده گردید و این ocx در مسیر زیر هست:

C:\WINDOWS\system32\MSADODC.OCX

با نرم افزار Setup ساز مثل Setup factory از برنامه تون setup بسازید و این ocx رو ضمیمه ش کنید.

[setarekh]

2تا سوال؟
من تو برنامه م چند تا کامپونت اضافه کردم مثل wmp و datagride و adodc و البته پايگاه داده اکسس
حالا بايد چه فايل هايي تو سيستم 32 کامپيوتر مقصد کپي کنم.(این یعنی رجیستر کردن درسته؟)
سوال دوم؟؟؟
من از برنامه م ستاپ ساختم اگه فايل هاي dll و ocx بالا تو قسمت addfile برنامه ستاپم اضافه کنم اينکار اتوماتيک انجام ميشه يعني فايل هاي dll , ocx تو سيستم 32 مقصد کپي ميشه.
(برنامه ستاپم qsetup)

[M.T.P]

از لیست Component ها هر چی رو تیک زدی اون زیر اسمش رو می نویسه ، مثلا Adodc که Microsoft ADO Data Control هست رو انتخاب کنید اون زیر اسم ocx رو می نویسه برای بقیه هم همینطور.
از Setup factory استفاده کن و هر ocx یا dll ی رو که Add کنی خودش موقع نصب عملیات کپی و ریجستر رو انجام میده.

[mohammadriano]

آقای عزیز شما یک کاری کن
اولاً که از access 2003 استفاده کن دوماً از آفیس پرتابل استفاده کن
سپس در قسمت پسوند ها در رجیستری خودت یک اکسپرت بگیر مثلاً mdb. البته اولش باید یک فایل mdb رو به اکسس پرتابل پیوست کنی در
FolderOption
در xp میشه در seven نمیدونم کجاست
موفق باشی

[karimi64bit]

سلام این مشکلو منم داشتم
بهترین راهی که براش هست اینه که سورس رو ببری رو یک کامپیوتر که این 3 مرحله رو بیشتر روش انجام نداده باشی کامپایل کنی
1- وقتی ویندوز میریزی در قسمت regional & languige option فقط در تب اول فارسی رو انتخاب کنی و در تب دوم تیک پایینی یعنی install file asian lan.. رو نزنی
2- ویژوال استدیو رو موقع نصب فقط vb6 , enterprise نصب کنی
3- وقتی برنامه رو setup میکنی فونتهای مورد نظر رو تو packet بزاری
4- با خیال راحت برنامه رو منتشر کنی :لبخندساده: