View Full Version : دستور آپدیت
aleas2
شنبه 23 شهریور 1392, 23:44 عصر
دوستان به نظرتون این کد اشتباه هسته؟والا عمل نمیکنه موندم مشکل چی
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
یک شنبه 24 شهریور 1392, 02:28 صبح
عمل کردن کد های متفاوت بستگی به نحوه باز کردن دیتا بیس داره (خیلی مهمه ولی کسی اشاره ای نمیکنه)
و بهتره برای کار ها تون از دستورات 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
یک شنبه 24 شهریور 1392, 13:07 عصر
To_Hejri(, 0) این کد اشکال داره
aleas2
یک شنبه 24 شهریور 1392, 20:16 عصر
عمل کردن کد های متفاوت بستگی به نحوه باز کردن دیتا بیس داره (خیلی مهمه ولی کسی اشاره ای نمیکنه)
و بهتره برای کار ها تون از دستورات 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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.