فى برنامج مشتريات: اريد ان ادخل كود الزبون و بعدها ادخل جميع مشترياته

'In General

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

'In Form_Load

Dim s As String

s = "provider =microsoft.jet.OLEDB.4.0;"

s = s & "data source=" & App.Path & "\office_db.mdb"

cn.ConnectionString = s

cn.Open

rs.Open "Yoyr Table Name", cn, adOpenDynamic, adLockOptimistic

'In txtNumber_KeyPress event

s = "sanad_id=' " & txtNumber.Text & "'"

rs.Find s, 0, adSearchForward, 1

If rs.EOF = True Then

Else

txtSanfName.Text = rs.Fields("SanfName").Value

End If

'sorry i have a problem writing Arabik

مشكور اخوي S_ayed على مرورك

بس انا بصراحة مافهمت يلي كاتبه حاسه طلاسم

لا تواخذني

ياريت تقدر تكتب بالعربي أو احد من الاخوان يترجم أو يعطينا الحل بالعربي

و شاكر و مقدر لك مرة اخرى

أخي الحبيب

لقد قام الأخ S_ayed

بوضع الكود لك

إذا كنت تريد التعديل مباشرة على مشروعك

رجاء ارفقه لنا

مشكور أخوي HhH-PROGRAMMER

ولكن هذا الكود بالنسبة للأستفسار الأول أم الثاني

و ما هو علي أن أفعله الآن

شاكر لك المرور

ياشباب مو معقول 59 مشاهد و لا احد يكتب رد

في مشكلة بطريقة توصيلي للمعلومة التي اريدها

ياريت احد يخبرني

وين المشرفين؟؟؟!!!

شباب انا شكلي داخل منتدى غلط و لا ايش

72 مشاهدة و لا رد قولو لي في مشكلة بطرحة للمشكلة

و لا غلطان بالمنتدى و لا ما في مشرفين

والله عيب

منتدى المبرمجين العرب و لا واحد عبرنا و لا عطانا وجه

قولولي في أي مشكلة و لا ما بيصير يلي أنا طالبه

أما ما احد يرد

ياخي اذا ما احد بيعرف يفهمني الرد من قبل الاخ S_ayed

ياريت يا أخ S_ayed تفهمني أو اح من الاخوان

يرجى ارفاق مثال بسيط لما تريدة وسيتم التعديل ان شاء الله الفكرة غير واضحة وا هي قاعدة البيانات وما هي اداة الربط وغيره

مشكور rmzh24 على استجابتك و مرورك على الموضوع

و بالنسبة لأوضح أكتر فسوف أذكر هذا المثال البسيط :

في قاعدة البيانات مخزن فيها اسم عبد الرحمن ورقمه 748 و يوسف و رقمه 9735

فالذي أريده أني عندما أدخل الرقم 9735 يقوم بالبحث في قاعدة البيانات و يخرج لي من هو صاحب الرققم 9735 في تكست أخر

شاكر لكم مرورك مرة أخرى

اخي العزيز اليك الحل كما تريد

ان شاء الله يكون المطلوب

RMZH24.rar

شاكر لك و مقدر تجاوبك و متابعتك للموضوع

و اريد أن اسئلك عن افضل طريقة للربط

فأنا استخدم طريقة DATA فهل هناك طريقة افضل منها

علما ً أن البرنامج هو الفيجوال بيسك 6