الســـلام عليكم ورحمة الله وبركاته
ياليت تسـاعدوني والله تعبت مشروعي ما قدرت أنتهي منه
عندي الآن برنامج البرنامج أشبهه بالأرشيف عباره عن مدخلات (أسـم - ورقم هويه) + قاعدة بيانات sql server
محتاج نقطتين
أن بمجرد ما يقوم المستخدم بأدخال الأسم ورقم الهويه ويضغط على حفظ يحفظ بياناته في قاعدة البيانات وينشـأ له مجلد في مسـار ثابت (برقم الهويه)
والنقطه الأخرى في حال أن المستخدم أدخل بعد فتره نفس الأسم والرقم يعطيه تنبيـه بأن لديه ملف مسبق وسنشأ له ملف داخل الملف القديم وتكون تسمية الملف الجديد تاريخ اليوم أو أي طريقه
وعند البحث عن شخص سيكون البحث برقم الهويه لما أدخل رقم الهويه يعرض لي المجلد من داخل البرنامج ويوضح لي كم يوجد لديه ملف داخل الملف الأساسي
وشكراً
تنشئ قاعدة بينات تتكون من ثلاث اعمدة
تضيف الاداة data1 الى النموذج
تربط قاعدة البيانات ب مربعات النص التي ستضيفها بعد حين
الكائن button1 هو للحفظ
ويحوي الكود التالي؛-
text1.text=data1.field1
text2.text=data1.feild2
الكائن button2 للبحث :-
for i = 1 ton data1.recordset.count
if text1.text=data1.feild(i) then print "found"
if text2.text=data1.feild(i) then found 2"
next i
.
.
.
جرب وخبرني، في المرة القادمة ضع مثال لما تريد ولا تتركنا ننشء كل شيء من الصفر منشان نجرب
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If cnn.State <> ConnectionState.Open Then cnn.Open()
Dim dirArchive As String = "مسار ثابت"
If New SqlCommand("Select COUNT(id) From table1 Where idno=" & TextBox2.Text, cnn).ExecuteScalar > 0 Then
Dim i As Integer = 1
Dim d As String = String.Concat(dirArchive, "\", TextBox2.Text.Trim, "\")
Do
If Not IO.Directory.Exists(d & i.ToString("0000")) Then Exit Do
i += 1
Loop
IO.Directory.CreateDirectory(d & i.ToString("0000"))
MsgBox("تنبيـه بأن لديه ملف مسبق")
Else
IO.Directory.CreateDirectory(String.Concat(dirArchive, "\", TextBox2.Text.Trim))
Dim ret As Integer = New SqlCommand("Insert Into table1 (name, idno) Values ('" & TextBox1.Text & "', '" & TextBox2.Text & "')", cnn).ExecuteScalar
End If
If cnn.State <> ConnectionState.Closed Then cnn.Close()
End Sub
أن شاء الله غداً أرفع لكم مثال أوضح
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ
اللهم صلي علي اشرف الخلق نبي الرحمه وبارك عل اله وصحابته الكرام والتابعين والحقنا بهم في جنات النعيم
ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ
اخي الكريم
ـ ـ ـ ـ ـ ـ ـ ـ
حل المشكله
ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ
استنادا لرأي الاخ الكريم
بشأن ارفاق مشروع مكود به مشكتلك
المشروع في المرفقا ت
جاري تكملة باقي طلبك
رجاء : الطلبات تكون علي هيئة عناصر علشان الي بيساعد ما ينساش طلب
السلام عليكم ورحمة الله وبركاته
اللهم صلي علي اشرف الخلق نبي الرحمه وبارك عل اله
وصحابته الكرام والتابعين والحقنا بهم في جنات النعيم
تقبل تحياتي zinom
الحل كاملا لطلبك باذن الله تعالي
اعزرني علي استعجالي
ده الي حضرتك طلبتو
الله يعطيـــك العافيه شوف المثال اللي أرفقته
الرد الأخيـر لك بدون مرفق
(23-12-15, 08:46 PM)adel27 كتب : [ -> ]الله يعطيـــك العافيه شوف المثال اللي أرفقته
الرد الأخيـر لك بدون مرفق
تم عمل الي حضرتك طلبتو
في الموضوع التالي
اتمني تبلغني برايك
ولو محتاج حاجه تاني تحت امرك
واعتزر مره تانيه علي التاخير
محتــاج أني أحفظ المسـار في قاعدة البيانات بس بدون ما يظهر للمستخدم
الفائده بعدين في صفحة البحث لما أبحث عن شخص أقدر أستعرض ملفه .. ياليت تســاعدني فيها
بسم الله الرحمن الرحيم
اللهم صلي علي خاتم النبيين وبارك علي اهله وصحابته الكرام
السلام عليكم اخي الكريم
إن شاء الله طلبك سهل ولكن محتاج منك مثال شامل الفكره الي حضرتك محتاجه وياريت يكون مقتبس من مشروعك لو هتبعتو علي الخاص حتي