اشکال در درج رکورد جدید در sql

[samaneh1363]

سلام به همگی
من دستورات زیر رو برای درج رکورد در دیتابیس sql می نویسم اما ارور run-time error 91 رو میده و اطلاعات هم در دیتابیس درج نمیشه؛ میشه اگه اشتباهی در کد نویسی دارم من رو راهنمایی کنید:


Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Student;Data Source=HP\Sqlexpress"
Adodc1.RecordSource = "select * from StInformation"
Dim rs As Recordset

rs.Open "select * from StInformation"
rs.AddNew
rs("StName") = Text1.Text
rs("StFamily") = Text2.Text
rs("StNo") = Text3.Text
rs("StPicture") = Text4.Text

rs.Update
rs.Close

[samaneh1363]

خواهش می کنم یکی کمک کنه
من واقعا نمی دونم چه مشکلی داره که اطلاعات ثبت نمیشه :ناراحت:

[Hashemvp]

دوست عزیز مشگل از این خط

Dim rs As Recordset


اگر از شی ADODC استفاده میکنی پس از خصوصیات همون شی استفاده کن برای ثبت کردن نه روش دیگری
اگه از این شی نمیخوای استفاده کنی DLL اونو اضافه کن و از این روش استفاده کن

بخاطر اینکه وقتی یه جدول رو انتخاب میکنی باید اول رفرش کنی بعد دستور اضافه کردن و اپدیت رو بزنی اینطوری که تو نوشتی برنامه اصلا جدولی برای درج و اپدیت انتخاب نشده

بهمین خاطر نمیتونه کاری رو که میخویا انجام بده

موفق باشی

[samaneh1363]

از کدوم خصوصیت adodc باید استفاده کنم؟؟؟
میشه لطفا کد رو برام اصلاح کنید؟؟؟ :خجالت:

[Hashemvp]

اینم کدش
اگه مشکلت حل نشد بیشتر توضیح بدی یا نمونه بذاری بهتر کمکت میتونم بکنم


Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Student;Data Source=HP\Sqlexpress"
Adodc1.RecordSource = "select * from StInformation"
Adodc1.Refresh
Adodc1.AddNew

Adodc1.Update "StName",Text1.text
'و باقی چیزا
Adodc1.Close

موفق باشی