پایگاه داده در (2)vb

[sevigol]

سلام من طنق دستور شما نوشتم اما اشکالی که داره ایمکه
object variable or balck not set
که مربوط به خط Select Case Adodc1.Recordset.RecordCount
کل برنامه

Private Sub command1_Click()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Database Path;Persist Security Info=False"
.RecordSource = "SElECT * from T_user where username = '" & Trim(Text1.Text) & "' AND userpass = '" & Trim(Text2.Text) & "'"
.Refresh
End With
Select Case Adodc1.Recordset.RecordCount

Case Is = 1
Case Is <> 1
"وقتي نام كاربري و اسم رمز غلط بود اين دستورات اجرا شود"
end select

end sub


trim چی هست؟
لطفا جواب بدین

[vbhamed]

سلام من طنق دستور شما نوشتم اما اشکالی که داره ایمکه
object variable or balck not set
که مربوط به خط Select Case Adodc1.Recordset.RecordCount
کل برنامه



Private Sub command1_Click()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Database Path;Persist Security Info=False"
.RecordSource = "SElECT * from T_user where username = '" & Trim(Text1.Text) & "' AND userpass = '" & Trim(Text2.Text) & "'"
.Refresh
End With
Select Case Adodc1.Recordset.RecordCount

Case Is = 1
Case Is <> 1
"وقتي نام كاربري و اسم رمز غلط بود اين دستورات اجرا شود"
end select

end sub



trim چی هست؟
لطفا جواب بدین


سلام
به جاي قسمت قرمز رنگ بالا نام و مسير بانك اطلاعاتي رو قرار بدين
مثل شكل زير



.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb;Persist Security Info=False"


تابع Trim هم فاصله ها رو از دو طرف يك رشته حذف مي كنه

[sevigol]

سلام من این کارو کردم
error وقتی دیباگ میکنم قسمت select مشکل داره؟
چیکار کنم؟
لطفا جواب بدین

[sohrab o]

ERROR چی میده؟متنشو بگو