منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ما الخطأ فى هذا الكود - اريد جلب كود الشركة بمجرد اختيار اسم الشركة من الـ Combo1

If cn.State = 1 Then cn.Close
cn.Open "provider=microsoft.jet.oledb.4.0;data source =" & App.Path + "\Sys.sys;Jet OLEDB Big Grin

atabase"
If rsitem1.State = 1 Then rsitem1.Close
rsitem1.Open " select distinct(CompanyName) from CompanyINFO where CompanyName like '" & CCompanyName.Text & "*" & "'", cn, adOpenDynamic, adLockOptimistic
If Not rsitem1.EOF Then
TCompanyID.Text = rsitem1.Fields(0).Value
rsitem1.MoveNext
End If
rsitem1.Close

أهلا أخي الكريم , لنفترض أن إسم حقل كود الشركة هو CompanyCode وإذا كان غير ذلك فقم بتغييره في هذا الكود , هذا كودك بعد تعديله :

PHP كود :

If CN.State = 1 Then CN.Close
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Sys.sys;Persist Security Info=False"
If rsitem1.State = 1 Then rsitem1.Close
rsitem1.Open "Select CompanyCode From CompanyINFO Where CompanyName='" & Trim$(CCompanyName.Text) & "'", CN, adOpenStatic, adLockOptimistic
If rsitem1.RecordCount > 0 Then
   If Not IsNull(rsitem1![CompanyCode]) Then TCompanyID.Text = rsitem1![CompanyCode] Else TCompanyID.Text = ""
Else
   TCompanyID.Text = ""
End If
If rsitem1.State = 1 Then rsitem1.Close 

بارك الله فيك اخى أحمد وجعلها فى ميزان حسناتك وزادك علماً.

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

Ashraf Elafify

Ahmed_Mansoor

Ashraf Elafify