ذخیره در دیتا بیس اکسس در ویندوز 10

[moghadam1372]

با سلام خدمت اساتید محترم

یک برنامه نوشته شده در ویندوز های xp و 7 راحت کار می کند و اطلاعات ذخیره می شود ولی در ویندوز 10پیام ذخیره شد که در برنامه نوشه شده ظاهر می شود ولی در دیتا بیس ذخیره نمی شود .؟؟؟ مشکل کجاست ؟؟؟

[ایلیا آخوندزاده]

سلام
MS-Office روی سیستم نصب هستش؟

[moghadam1372]

سلام
MS-Office روی سیستم نصب هستش؟



بله افیس هم نصب است

[ایلیا آخوندزاده]

بینید کامپوننت ها کامل ریجستر هستن روی سیستم چون میتونه به اشیا مربوط به Data ربط داشته باشه.

[علیرضا5]

تمام dll ها و ocx ها رو رجستر کنید
اینم که پیغام ذخیره شد میده دلیلش اینه که احتملا شما کدهاتون رو طوری نوشتید که در صورت ارور هم پیغام ذخیره شد رو بده

ضمنا آقای ایلیا آخوندزاده (http://barnamenevis.org/member.php?311087-%D8%A7%DB%8C%D9%84%DB%8C%D8%A7-%D8%A2%D8%AE%D9%88%D9%86%D8%AF%D8%B2%D8%A7%D8%AF%D 9%87)
بزرگوار برنامه های وی بی6 برای ارتباط با دیتابیسشون نیازی به نصب بودن آفیس ندارن

[moghadam1372]

با سلام من پیام ذخیره را بعد از کد نویسی اپدیت گذاشتم این هم کد های نوشته شده




If Text1.Text = "" Then
MsgBox "áØÝÇ ãÔÊÑí ÑÇ ãÔÎÕ ˜äíÏ ", vbExclamation, "ÊæÌå "
Text1.SetFocus
Else
If Text7.Text = "" Then
MsgBox "áØÝÇ ãÞÏÇÑ á ÑÇ æÇÑÏ ˜äíÏ ", vbExclamation, "ÊæÌå "
Text7.SetFocus
Else
If Text8.Text = "" Then
MsgBox "áØÝÇ ãÈáÛ Ýí ÑÇ æÇÑÏ ˜äíÏ ", vbExclamation, "ÊæÌå "
Text8.SetFocus
Else
If Text28.Text = "" Then
MsgBox "áØÝÇ Òãíä ÑÇ ãÔÎÕ ˜äíÏ ", vbExclamation, "ÊæÌå "
Text28.SetFocus
Else






On Error Resume Next
If XPButton1.Caption = "ÐÎíÑå ÌÏíÏ" Then




Adodc5.Recordset.AddNew


Adodc5.Recordset.Fields!Date = t1.Text
Adodc5.Recordset.Fields!codm = Text1.Text
Adodc5.Recordset.Fields!namem = Text2.Text
Adodc5.Recordset.Fields!cods = Text28.Text
Adodc5.Recordset.Fields!namez = Text29.Text
Adodc5.Recordset.Fields!pcs = Text7.Text
Adodc5.Recordset.Fields!fi = Text8.Text
Adodc5.Recordset.Fields!zafaran = Text9.Text
Adodc5.Recordset.Fields!sefid = Text10.Text
Adodc5.Recordset.Fields!bd = Text11.Text
Adodc5.Recordset.Fields!khoshk = Text12.Text
Adodc5.Recordset.Fields!alamat = Text13.Text
Adodc5.Recordset.Fields!shar = Text14.Text
Adodc5.Recordset.Fields!kol = Text19.Text
Adodc5.Recordset.Fields!Time = lltime.Caption
Adodc5.Recordset.Fields!radif = (Text24.Text)
Adodc5.Recordset.Fields!Lastvisit = t1.Text
Adodc5.Recordset.Fields!radifcart = Text27.Text


Adodc5.Recordset.Update
Adodc5.Refresh


'-----Adodc11 ÐÎíÑå ÌÏíÏ ÏÑ ÍÐÝ
Adodc11.Recordset.AddNew


Adodc11.Recordset.Fields!Date = t1.Text
Adodc11.Recordset.Fields!codm = Text1.Text
Adodc11.Recordset.Fields!namem = Text2.Text
Adodc11.Recordset.Fields!cods = Text28.Text
Adodc11.Recordset.Fields!namez = Text29.Text
Adodc11.Recordset.Fields!pcs = Text7.Text
Adodc11.Recordset.Fields!fi = Text8.Text
Adodc11.Recordset.Fields!zafaran = Text9.Text
Adodc11.Recordset.Fields!sefid = Text10.Text
Adodc11.Recordset.Fields!bd = Text11.Text
Adodc11.Recordset.Fields!khoshk = Text12.Text
Adodc11.Recordset.Fields!alamat = Text13.Text
Adodc11.Recordset.Fields!shar = Text14.Text
Adodc11.Recordset.Fields!kol = Text19.Text
Adodc11.Recordset.Fields!Time = lltime.Caption
Adodc11.Recordset.Fields!radif = (Text24.Text)
Adodc11.Recordset.Fields!Lastvisit = t1.Text
Adodc11.Recordset.Fields!radifcart = Text27.Text


Adodc11.Recordset.Update
Adodc11.Refresh


'-----------------------------------------------
'---------------------------------------------------


If Text11.Text <> "" Then
'Dim d1 As String
'd1 = t1.Text
'Adodc10.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False; Jet OLEDB:Database Password = rezamoghadam1372"
'Adodc10.RecordSource = "SELECT * From bdandbs where codm=1 and date ='" & d1 & "'"
'Adodc10.Refresh
'If Adodc10.Recordset.BOF = True Then
Adodc10.Recordset.AddNew
Adodc10.Recordset.Fields!Date = t1.Text
Adodc10.Recordset.Fields!bd = Text11.Text
Adodc10.Recordset.Fields!shar = Text1 + Text2
Adodc10.Recordset.Fields!codm = Text1.Text
Adodc10.Recordset.Fields!namem = Text2.Text
Adodc10.Recordset.Fields!idamal = Text22.Text
Adodc10.Recordset.Fields!cods = Text28.Text
Adodc10.Recordset.Fields!namez = Text29.Text


Adodc10.Recordset.Update
Adodc10.Refresh


End If
'================================================






Text4.Text = ""
Text7.Text = ""
'Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
Text24.Text = ""
Text27.Text = ""




sql = "SELECT * from amal WHERE codm = " & (Text1.Text) & ""
Adodc5.RecordSource = sql
Adodc5.Refresh
'MsgBox " јæÑÏ ÌÏíÏ ÈÇ ãæÝÞíÊ ËÈÊ ÔÏ ", vbExclamation, "ÌÏíÏ "
Dim i As Variant
For i = 1 To Adodc5.Recordset.RecordCount
Adodc5.Recordset.Fields!Lastvisit = t1.Text
Adodc5.Recordset.Update
Adodc5.Recordset.MoveNext
Next i
Adodc5.Refresh




XPButton4.Enabled = False
XPButton1.Enabled = False




Adodc5.Recordset.Sort = "id desc"


' Adodc5.RecordSource = " SELECT max(id)as id from amal """
Text22 = Adodc5.Recordset.Fields!ID


Form14.Adodc5.Recordset.Filter = "id =' " & Text22.Text & " ' "


Form14.Text1.Text = Adodc5.Recordset.Fields!codm
Form14.Text2.Text = Adodc5.Recordset.Fields!radif
Form14.Text3.Text = Adodc5.Recordset.Fields!Date
Form14.Text4.Text = Adodc5.Recordset.Fields!Time
Form14.Text5.Text = Adodc5.Recordset.Fields!pcs
Form14.Text6.Text = Adodc5.Recordset.Fields!fi
Form14.Text22.Text = Adodc5.Recordset.Fields!ID
Form14.Text11.Text = Adodc5.Recordset.Fields!radifcart


Form14.XPButton4.Enabled = False
Form14.XPButton1.Enabled = False


Form14.Show


'Text1.SetFocus


ElseIf XPButton1.Caption = "ÐÎíÑå æíÑÇíÔ" Then


On Error Resume Next
sql3 = "SELECT * from amal WHERE Left(id, " & Len(Text22) & ")='" & Trim(Text22) & "'order by date desc"
Adodc5.RecordSource = sql3
Adodc5.Refresh
'Adodc5.Refresh


Adodc5.Recordset.Fields!Dateon = t1.Text
Adodc5.Recordset.Fields!codm = Text1.Text
Adodc5.Recordset.Fields!namem = Text2.Text
Adodc5.Recordset.Fields!cods = Text28.Text
Adodc5.Recordset.Fields!namez = Text29.Text
Adodc5.Recordset.Fields!pcs = Text7.Text
Adodc5.Recordset.Fields!fi = Text8.Text
Adodc5.Recordset.Fields!zafaran = Text9.Text
Adodc5.Recordset.Fields!sefid = Text10.Text
Adodc5.Recordset.Fields!bd = Text11.Text
Adodc5.Recordset.Fields!khoshk = Text12.Text
Adodc5.Recordset.Fields!alamat = Text13.Text
Adodc5.Recordset.Fields!shar = Text14.Text
Adodc5.Recordset.Fields!kol = Text19.Text
Adodc5.Recordset.Fields!Timeon = lltime.Caption


Adodc5.Recordset.Update
Adodc5.Refresh




' --- Adodc11 ÐÎíÑå æíÑÇíÔ ÏÑ ÍÐÝ
Adodc11.Recordset.AddNew
Adodc11.Recordset.Fields!Date = t2.Text
'Adodc11.Recordset.Fields!Dateon = t1.Text
Adodc11.Recordset.Fields!codm = Text1.Text
Adodc11.Recordset.Fields!namem = Text2.Text
Adodc11.Recordset.Fields!cods = Text28.Text
Adodc11.Recordset.Fields!namez = Text29.Text
Adodc11.Recordset.Fields!pcs = Text7.Text
Adodc11.Recordset.Fields!fi = Text8.Text
Adodc11.Recordset.Fields!zafaran = Text9.Text
Adodc11.Recordset.Fields!sefid = Text10.Text
Adodc11.Recordset.Fields!bd = Text11.Text
Adodc11.Recordset.Fields!khoshk = Text12.Text
Adodc11.Recordset.Fields!alamat = Text13.Text
Adodc11.Recordset.Fields!shar = Text14.Text
Adodc11.Recordset.Fields!kol = Text19.Text
'Adodc11.Recordset.Fields!timeon = lltime.Caption
Adodc11.Recordset.Fields!Time = lltime.Caption
Adodc11.Recordset.Fields!radif = (Text24.Text)
Adodc11.Recordset.Fields!Lastvisit = t1.Text
Adodc11.Recordset.Fields!radifcart = Text27.Text


Adodc11.Recordset.Update
Adodc11.Refresh


'================================================= =========
If Text11.Text <> "" Then


Adodc10.Recordset.Filter = "idamal =' " & Text22.Text & " ' "


If Adodc10.Recordset.BOF = True Then
Adodc10.Recordset.AddNew
Adodc10.Recordset.Fields!Date = t1.Text
Adodc10.Recordset.Fields!bd = Text11.Text
Adodc10.Recordset.Fields!shar = Text1 + Text2
Adodc10.Recordset.Fields!codm = Text1.Text
Adodc10.Recordset.Fields!namem = Text2.Text
Adodc10.Recordset.Fields!idamal = Text22.Text
Adodc10.Recordset.Fields!cods = Text28.Text
Adodc10.Recordset.Fields!namez = Text29.Text


Adodc10.Recordset.Update
Adodc10.Refresh


Else
Adodc10.Recordset.Fields!Date = t1.Text
Adodc10.Recordset.Fields!bd = Text11.Text
Adodc10.Recordset.Fields!shar = Text1 + Text2
Adodc10.Recordset.Fields!codm = Text1.Text
Adodc10.Recordset.Fields!namem = Text2.Text
Adodc10.Recordset.Fields!idamal = Text22.Text
Adodc10.Recordset.Fields!cods = Text28.Text
Adodc10.Recordset.Fields!namez = Text29.Text


Adodc10.Recordset.Update
Adodc10.Refresh


End If
End If
'================================================= =======


XPButton3.Enabled = False


Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
t2.Text = ""
Text24.Text = ""
Text27.Text = ""




Form14.Label1.ForeColor = vbRed
Form14.Label1.Caption = " јæÑÏ ÈÇ ãÔÎÕÇÊ ÒíÑ æíÑÇíÔ ÔÏ "
Form14.Text1.Text = Adodc5.Recordset.Fields!codm
Form14.Text2.Text = Adodc5.Recordset.Fields!radif
Form14.Text3.Text = Adodc5.Recordset.Fields!Date
Form14.Text4.Text = Adodc5.Recordset.Fields!Time
Form14.Text5.Text = Adodc5.Recordset.Fields!pcs
Form14.Text6.Text = Adodc5.Recordset.Fields!fi
Form14.Text11.Text = Adodc5.Recordset.Fields!radifcart


Form14.Text22.Text = Adodc5.Recordset.Fields!ID
Form14.Adodc5.Recordset.Filter = "id =' " & Text22.Text & " ' "
Form14.XPButton4.Enabled = True
Form14.XPButton2.Enabled = False
Form14.XPButton1.Enabled = False


Form14.Show


Adodc5.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\data.mdb;Persist Security Info=False; Jet OLEDB:Database Password = rezamoghadam1372"
Adodc5.RecordSource = "SELECT * from amal WHERE Left(codm, " & Len(Text1) & ")='" & Trim(Text1) & "'order by date desc"
Adodc5.Refresh
'MsgBox " јæÑÏ ÈÇ ãæÝÞíÊ æíÑÇíÔ ÔÏ ", vbExclamation, "æíÑÇíÔ "


Text1.Text = ""
Text2.Text = ""


Form14.Text22.Text = Text22.Text


XPButton1.Caption = "ÐÎíÑå ÌÏíÏ"
End If
End If
End If
End If
End If



البته یاد اور شوم طبق گزارش کاربر بعضی از رکوردها حذف می شود که قبلا در کارت مشتری پرفراژ شده است حالا نمی دانم در کد نویسی اشکال دارد