دستور آپدیت

[aleas2]

دوستان به نظرتون این کد اشتباه هسته؟والا عمل نمیکنه موندم مشکل چی

Adodc2.RecordSource = "select * from Table2 WHERE ((Table2.date)=" & "'" & To_Hejri(, 0) & "')"
Adodc2.Refresh


If date2.Text <> "" Then


tadad.Text = Str(Val(tadad.Text) + 1)

txt_time.Text = Str(Val(time2.Text) \ 3600)
a = Val(time2.Text) Mod 3600
txt_time.Text = txt_time.Text & " : " & Val(a) \ 60 & " : " & Val(a) Mod 60


Adodc2.Recordset.Update
Adodc2.Refresh
end if

[Mr'Jamshidy]

عمل کردن کد های متفاوت بستگی به نحوه باز کردن دیتا بیس داره (خیلی مهمه ولی کسی اشاره ای نمیکنه)

و بهتره برای کار ها تون از دستورات SQL استفاده کنید

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database.mdb;"

Set MyCon = New ADODB.Connection

MyCon.ConnectionString = strCon
MyCon.Open

MyCon.Execute "UPDATE DBName Set TBName = 'Hello'", adOpenDynamic, adCmdText

[m.4.r.m]

To_Hejri(, 0) این کد اشکال داره

[aleas2]

عمل کردن کد های متفاوت بستگی به نحوه باز کردن دیتا بیس داره (خیلی مهمه ولی کسی اشاره ای نمیکنه)

و بهتره برای کار ها تون از دستورات SQL استفاده کنید

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database.mdb;"

Set MyCon = New ADODB.Connection

MyCon.ConnectionString = strCon
MyCon.Open

MyCon.Execute "UPDATE DBName Set TBName = 'Hello'", adOpenDynamic, adCmdText

روشی شما گفتین جواب نداد

برای اتصال هم از adodc استفاده کردم که تنظیمات اتصال در زمان طراحی custom تعیین کردم برای ارتباط با بانک اکسس

قبلا از همین روشی خودم گفتم تو بقیه برنامه هام استفاده کردم جواب میداد نمیدونم چرا الان جواب نمیده !








این کد اشکال داره


نه این کد مشکلی نداره این کد فقط تاریخ سیستم به هجری تبدیل میکنه و برمیگردونه !
تا این دستور خوب عمل میکنه

Adodc2.RecordSource = "select * from Table2 WHERE ((Table2.date)=" & "'" & To_Hejri(, 0) & "')"
Adodc2.Refresh


این کد عمل نمیکنه
Adodc2.Recordset.Update
Adodc2.Refresh