[vb6.0] ارجو المساعدة والتعديل في هدا الكود - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +--- الموضوع : [vb6.0] ارجو المساعدة والتعديل في هدا الكود (/showthread.php?tid=16385)

ارجو المساعدة والتعديل في هدا الكود - عمور2016 - 07-07-16 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 RE: ارجو المساعدة والتعديل في هدا الكود - Ashraf Elafify - 10-07-16 اخى العزيز بالنسبه للبند الثانى و هو اضافه اسم المستخدم فى الكومبو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 بالنسبه لتعديل الكود ممكن التوضيح اكثر فيما تريدة RE: ارجو المساعدة والتعديل في هدا الكود - عمور2016 - 10-07-16 هدا المطلوب شكرا جزيلا الله يرضى عليك