منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Private Sub Command1_Click
()
On Error Resume Next: Err.Clear
Adodc1.RecordSource = "select * from logtable where names='" & Text1.Text & "' and pass='" & Text2.Text 
  " '" &

Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "error to enter passward", vbCritical, "please make sure  username password
"
Else
MsgBox ("success
")
Form2.Show
Unload Me

End If
End Sub


ارجو المساعدة اريد اولا  تعديل الكود ثم كلما اضفت في القاعدة اسم مستخدم يظهر في الكومبو 1

اخى العزيز

بالنسبه للبند الثانى و هو اضافه اسم المستخدم فى الكومبو1 كما تريد يرجى تغير اسم الجدول وقاعدة البيانات و مايلزم فى الكود التالى :-

فى Declarations
ضع الكود التالى

Dim cn3 As New adodb.Connection
Dim rsitem2 As New adodb.Recordset
Option Explicit

وفى حدث ال form load ضع الكود التالى


If rsitem2.State = 1 Then rsitem2.Close
If cn3.State = 0 Then
cn3.Open "Provider=microsoft.jet.oledb.4.0;data source=Sys.sys"
End If
rsitem2.Open "select * from logtable ", cn3, adOpenDynamic, adLockOptimistic
1:
If Not rsitem2.EOF Then
Combo1.AddItem rsitem2!names
rsitem2.MoveNext
GoTo 1
End If

---

بالنسبه لتعديل الكود

ممكن التوضيح اكثر فيما تريدة

هدا المطلوب شكرا جزيلا الله يرضى عليك