ورود

View Full Version : اشکال در کد insert in to


renjer07
یک شنبه 08 دی 1392, 08:04 صبح
اساتید گرامی

من از این کد برای باتن ادد از مقادیر تکست باکس فرم به جدولم استفاده می کنم ولی هیچ تغییری ایجاد نمیشه لطفا راهنمائیم کنید

Sub add_Click()

Dim dbs As Database

Set dbs = OpenDatabase("D:\ShiveErae\ProjectShiveh.accdb")

dbs.Execute " INSERT INTO projectshiveh " _
& "(ID,CourseCode,CourseTitle,Participants,Period) VALUES " _
& "('" & Me.Text32.Value & "','" & Me.Text22.Value & "','" & Me.Text24.Value & "','" & Me.Text26.Value & "','" & Me.Text28.Value & "');"

dbs.Close

End Sub

فایل رو هم ضمیمه کردم مرسی
Abbas Amiri
یک شنبه 08 دی 1392, 19:47 عصر
اساتید گرامی

من از این کد برای باتن ادد از مقادیر تکست باکس فرم به جدولم استفاده می کنم ولی هیچ تغییری ایجاد نمیشه لطفا راهنمائیم کنید

Sub add_Click()

Dim dbs As Database

Set dbs = OpenDatabase("D:\ShiveErae\ProjectShiveh.accdb")

dbs.Execute " INSERT INTO projectshiveh " _
& "(ID,CourseCode,CourseTitle,Participants,Period) VALUES " _
& "('" & Me.Text32.Value & "','" & Me.Text22.Value & "','" & Me.Text24.Value & "','" & Me.Text26.Value & "','" & Me.Text28.Value & "');"

dbs.Close

End Sub

فایل رو هم ضمیمه کردم مرسی

فقط مقادیر تکست بایستی در کوتیشن قرا بگیرند:

dbs.Execute " INSERT INTO projectshiveh " _
& "(ID,CourseCode,CourseTitle,Participants,Period) VALUES " _
& "(" & Me.Text32.Value & "," & Me.Text22.Value & ",'" & Me.Text24.Value & "','" & Me.Text26.Value & "'," & Me.Text28.Value & ");"