Juventus FC
دوشنبه 26 مرداد 1394, 14:53 عصر
درود بر اساتید
آقا من یک تکست ، یک دکمه Run و یک combobox دارم ، اول اینکه میخواهم متنی که تو تکست مینویسم بعد که دکمه Run زدم با چیزی که تو دیتابیس هست مقایسه بشه و در صورت وجود مثلا یک پیغامی بده ، بعد اگر مشکلی نبود با زدن دکمه Run اون متنی که تو تکست نوشتم بره تو پایگاه داده ، سپس اون combobox رکوردهایی که توسط تکست باکس نوشتیم و رفت تو پایگاه داده بخونه و نمایش بده !
من کد ها رو دقیقا میدونم ولی نمیدونم چرا سر تا پا Error میگیره ! از مقایسه بگیر الی آخر !
Private Sub XPButton1_Click()
ado.RecordSource = "SELECT * FROM combo WHERE coment=" & Val(Text1.Text)
ado.Refresh
If ado.Recordset.RecordCount > 0 Then
MsgBox "ÔãÇÑå ÝǘÊæÑ æÇÑÏ ÔÏå ÏÑ ÓíÓÊã ãæÌæÏ ãíÈÇÔÏ"
Else
On Error Resume Next
ado.Recordset.AddNew
ado.Recordset.Fields!coment = Trim(Text1.Text)
ado.Recordset.Update
ado.Refresh
End If
End Sub
الان به اون شرط error میگیره ! به اون ado.Refresh پیغام خطا میده. بعدش به اون ado.Recordset.Fields!coment = Trim(Text1.Text) و بعدش اینکه بعضی وقت ها با وحود Error رکورد در بانک اطلاعاتی ثبت میشه ! منتها وقتی combobox به دیتابس وصل میکنیم فقط رکورد اولی که وارد شده رو نمایش میده و باقی رکوردها علی رغم وجود در دیتابیس ولی توسط combobox نمایش داده نمیشه.
آقا من یک تکست ، یک دکمه Run و یک combobox دارم ، اول اینکه میخواهم متنی که تو تکست مینویسم بعد که دکمه Run زدم با چیزی که تو دیتابیس هست مقایسه بشه و در صورت وجود مثلا یک پیغامی بده ، بعد اگر مشکلی نبود با زدن دکمه Run اون متنی که تو تکست نوشتم بره تو پایگاه داده ، سپس اون combobox رکوردهایی که توسط تکست باکس نوشتیم و رفت تو پایگاه داده بخونه و نمایش بده !
من کد ها رو دقیقا میدونم ولی نمیدونم چرا سر تا پا Error میگیره ! از مقایسه بگیر الی آخر !
Private Sub XPButton1_Click()
ado.RecordSource = "SELECT * FROM combo WHERE coment=" & Val(Text1.Text)
ado.Refresh
If ado.Recordset.RecordCount > 0 Then
MsgBox "ÔãÇÑå ÝǘÊæÑ æÇÑÏ ÔÏå ÏÑ ÓíÓÊã ãæÌæÏ ãíÈÇÔÏ"
Else
On Error Resume Next
ado.Recordset.AddNew
ado.Recordset.Fields!coment = Trim(Text1.Text)
ado.Recordset.Update
ado.Refresh
End If
End Sub
الان به اون شرط error میگیره ! به اون ado.Refresh پیغام خطا میده. بعدش به اون ado.Recordset.Fields!coment = Trim(Text1.Text) و بعدش اینکه بعضی وقت ها با وحود Error رکورد در بانک اطلاعاتی ثبت میشه ! منتها وقتی combobox به دیتابس وصل میکنیم فقط رکورد اولی که وارد شده رو نمایش میده و باقی رکوردها علی رغم وجود در دیتابیس ولی توسط combobox نمایش داده نمیشه.