مشکل این برنامه کجاست

[salarblacklove]

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

[r0ot$harp]

دوست عزیز من رو دستگام Sql Server ندارم .


این خطا چه زمانی روخ می دهد ؟




باتشکر احسان

[salarblacklove]

دوست عزیز من رو دستگام Sql Server ندارم .


این خطا چه زمانی روخ می دهد ؟




باتشکر احسان


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


ado1.Recordset.Source = "INSERT INTO student " & _
"(Name, famil, f_name,code_melly,b_date,id_num,sodor,mobile,tel,j ob,address,gender," & _
"estandard,saat,s_shroe,s_payan,dore,d_shoro,d_paya n,sheft,madrak,morabe,kart_num,id,pic) " & _
" VALUES (" & _
"'" + txtname + "', " & _
"'" + txtfamil + "', " & _
"'" + txtf_name + "', " & _
"'" + txtcode + "', " & _
"'" + txtb_date + "'" & _
"'" + txtidnum + "'" & _
"'" + txtsodor + "'" & _
"'" + txtmobile + "'" & _
"'" + txttel + "'" & _
"'" + cmbjob + "'" & _
"'" + txtaddress + "'" & _
"'" + cmbgender + "'" & _
"'" + txtstandard + "'" & _
"'" + txthdore + "'" & _
"'" + txtstime + "'" & _
"'" + txtetime + "'" & _
"'" + cmbdore + "'" & _
"'" + txts_date + "'" + "'" + txte_date + "'" + "'" + cmbsheft + "'" + "'" + cmbmadrak + "'" + "'" + txtmorabe + "'" + "'" + txtcart + "'" + la.Caption + "'" + "'" + cmbsheft + "'" & _
")"

'----------------------------------------------------------------------
'ado1.Recordset.Source = statement
ado1.Recordset.Open
ado1.Refresh

[Itist82]

یه دور این کوئری رو توی خود محیطی که sql server براتون فراهم می کنه نوشتید؟ اجرا شده؟ مشکلات سینتکسی رو گاهی این جوری میشه درست کرد. اگه اون جا کار کرد و توی برنامه نه، کوئری رو تبدیل به stored procedure کنید و از این به بعد به جای خود کوئری اسم اون پروسیجر ذخیره شده رو اجرا کنید.
امیدوارم حل بشه

[salarblacklove]

یه دور این کوئری رو توی خود محیطی که sql server براتون فراهم می کنه نوشتید؟ اجرا شده؟ مشکلات سینتکسی رو گاهی این جوری میشه درست کرد. اگه اون جا کار کرد و توی برنامه نه، کوئری رو تبدیل به stored procedure کنید و از این به بعد به جای خود کوئری اسم اون پروسیجر ذخیره شده رو اجرا کنید.
امیدوارم حل بشه

راستش رو بخواهید ممنونم از لطف شما
اما مشکل من این هست که تازه دارم همچین برنامه ای می نویسم البته یکم اطلاعات دارم و لی موردی که شما فرمودید من تو اسکیو ال چطوری بنویسم؟یعنی من تو برنامه ویژوال بیسیک روی فرم عناصری دارم که این عناصر اطلاعات من رو تکمیل میکنه ولی توی اسکیوال فک کنم باید اطلاعات رو همین جوری بنویسم درسته؟

[hrj1981]

شما كافي است كوئري ايجاد شده درون SQL را به داخل رابط بانك اطلاعاتي فراخواني نماييد.
1-در قسمت CommandType رابط بانك اطلاعاتي گزينه adCmdStoredProc را انتخاب نماييد
2-درقسمت Recordset.Source نام كوئري مورد نظر خود را وارد كنيد.
"براي قسمت دوم مي توانيد از .RecordSource استفاده كنيد."

[salarblacklove]

شما كافي است كوئري ايجاد شده درون SQL را به داخل رابط بانك اطلاعاتي فراخواني نماييد.
1-در قسمت CommandType رابط بانك اطلاعاتي گزينه adCmdStoredProc را انتخاب نماييد
2-درقسمت Recordset.Source نام كوئري مورد نظر خود را وارد كنيد.
"براي قسمت دوم مي توانيد از .RecordSource استفاده كنيد."

دوست عزیز من شرمنده متوجه نشدم
کدوم کوئری رو چطوری و کجا بنویسم؟
یا اگه ممکنه من برنامه ای که نوشتم رو و آپ کردم اسکریپت بانک اطلاعاتی رو هم آپ کردم اگه ممکنه یک نگاه بندازید

[vbhamed]

سلام

فكر مي كنم مشكل اينه كه تو 4 خط بعد از VALUES بعد از علامت ' كاما گذاشتيد اما براي بقيه خطها رو فراموش كرديد
اينم هم براي راحت تر بودن :




Dim s$, R$, L$
R = "', "
L = "'"

ado1.Recordset.Source = "INSERT INTO student " & _
"(Name, famil, f_name, code_melly, b_date, id_num, sodor, mobile, tel, job, address, gender, " & _
"estandard, saat, s_shroe, s_payan, dore, d_shoro, d_payan, sheft, madrak, morabe, kart_num, id, pic) " & _
" VALUES (" & _
L & txtname _
& R & L & txtfamil _
& R & L & txtf_name _
& R & L & txtcode _
& R & L & txtb_date _
& R & L & txtidnum _
& R & L & txtsodor _
& R & L & txtmobile _
& R & L & txttel _
& R & L & cmbjob _
& R & L & txtaddress _
& R & L & cmbgender _
& R & L & txtstandard _
& R & L & txthdore _
& R & L & txtstime _
& R & L & txtetime _
& R & L & cmbdore _
& R & L & txts_date _
& R & L & txte_date _
& R & L & cmbsheft _
& R & L & cmbmadrak & R & L & txtmorabe & R & L & txtcart & R & L & la.Caption & R & L & cmbsheft & "')"
'----------------------------------------------------------------------
'ado1.Recordset.Source = statement
ado1.Recordset.Open
ado1.Refresh