ورود

View Full Version : ورود اطلاعات به جدول توسط كد


aghl2004
دوشنبه 25 اردیبهشت 1391, 17:07 عصر
با سلام خدمت دوستان و اساتيد كد نويسي در اكسس
بنده مبتدي هستم و در حال مطالعه و يادگيري. در كتابي خواندم از كد زير براي اضافه كردن ركورد جديد ميتوان استفاده كرد:

Private Sub addnew(strproductname As String, strdescription As String)

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "tblProducts", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
With rs
.addnew
![txtNameProduct] = strproductname
![txtDescription] = strdescription
.Update
End With
rs.Close
Set rs = Nothing
End Sub

ولي بنده نميفهمم اين كد را به كجا اضافه كنم يا چجوري اجرا كنم؟
aghl2004
چهارشنبه 27 اردیبهشت 1391, 07:56 صبح
سلام
استادان گرامي برنامه نويسي
اگه جواب بنده را بدهيد (كه احتمالا پيش پا افتاده است) ممنونتون ميشم.
قربان شما
Younestalebi
چهارشنبه 27 اردیبهشت 1391, 08:36 صبح
اين كد را در خاصيت onclick يك باتن قرار دهيد. البته بر اساس جدول و فرمي كه اطلاعات را از طريق آن وارد مي كنيد بايستي تغييراتي در كد بدهيد
aghl2004
چهارشنبه 27 اردیبهشت 1391, 09:50 صبح
سلام
اين كار را كردم. ولي ارور داد . چيزي كه متوجه نميشم اينست كه چه مقاديري به جدول اضافه ميكند؟ در ضمن اگر نمونه 2003 بزارين واقعا ممنون ميشم.
Younestalebi
چهارشنبه 27 اردیبهشت 1391, 11:30 صبح
اين هم يك نمونه ساده
87118