تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] أستفسـار ياليت أحد يفيدني فيه
#1
الســـلام عليكم ورحمة الله وبركاته

ياليت تسـاعدوني والله تعبت مشروعي ما قدرت أنتهي منه

عندي الآن برنامج البرنامج أشبهه بالأرشيف عباره عن مدخلات (أسـم - ورقم هويه) + قاعدة بيانات     sql server


 محتاج نقطتين
أن بمجرد ما يقوم المستخدم بأدخال الأسم ورقم الهويه ويضغط على حفظ يحفظ بياناته في قاعدة البيانات  وينشـأ له مجلد في مسـار ثابت (برقم الهويه)

والنقطه الأخرى في حال أن المستخدم أدخل بعد فتره نفس الأسم والرقم يعطيه تنبيـه بأن لديه ملف مسبق وسنشأ له ملف داخل الملف القديم وتكون تسمية الملف الجديد تاريخ اليوم أو أي طريقه


 


وعند البحث عن شخص سيكون البحث برقم الهويه لما أدخل رقم الهويه  يعرض لي المجلد من داخل البرنامج ويوضح لي كم يوجد لديه ملف داخل الملف الأساسي


وشكراً
الرد }}}
تم الشكر بواسطة:
#2
تنشئ قاعدة بينات تتكون من ثلاث اعمدة
تضيف الاداة 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
.
.
.
الرد }}}
تم الشكر بواسطة:
#3
جرب وخبرني، في المرة القادمة ضع مثال لما تريد ولا تتركنا ننشء كل شيء من الصفر منشان نجرب
كود :
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
الرد }}}
تم الشكر بواسطة: salahalmasry
#4
أن شاء الله غداً أرفع لكم مثال أوضح


الملفات المرفقة
.zip   tst1.zip (الحجم : 65.13 ك ب / التحميلات : 63)
الرد }}}
تم الشكر بواسطة:
#5
بسم الله الرحمن الرحيم 
السلام عليكم ورحمة الله وبركاته 
ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ
اللهم صلي علي اشرف الخلق نبي الرحمه وبارك عل اله  وصحابته الكرام والتابعين والحقنا بهم في جنات النعيم
ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ
اخي الكريم 
ـ ـ ـ ـ ـ ـ ـ ـ
حل المشكله 
ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ 
استنادا  لرأي الاخ الكريم 
بشأن ارفاق مشروع مكود به مشكتلك  



المشروع في المرفقا ت

جاري تكملة باقي طلبك
رجاء : الطلبات تكون علي هيئة عناصر علشان الي بيساعد ما ينساش طلب


الملفات المرفقة صورة/صور
   

.rar   tst1.rar (الحجم : 67.45 ك ب / التحميلات : 47)
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



الرد }}}
تم الشكر بواسطة: أبووسم , adel27 , Zads10 , salahalmasry
#6
 السلام عليكم ورحمة الله وبركاته 


اللهم صلي علي اشرف الخلق نبي الرحمه وبارك عل اله  

وصحابته الكرام والتابعين والحقنا بهم في جنات النعيم
 تقبل تحياتي zinom


الحل كاملا لطلبك  باذن الله تعالي 
اعزرني علي استعجالي 


ده الي حضرتك طلبتو


اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



الرد }}}
تم الشكر بواسطة: Zads10 , adel27 , أبووسم , أبووسم
#7
الله يعطيـــك العافيه  شوف المثال اللي أرفقته

الرد الأخيـر لك بدون مرفق


الملفات المرفقة
.zip   tst3.zip (الحجم : 82.58 ك ب / التحميلات : 51)
الرد }}}
تم الشكر بواسطة: Zads10
#8
(23-12-15, 08:46 PM)adel27 كتب : الله يعطيـــك العافيه  شوف المثال اللي أرفقته

الرد الأخيـر لك بدون مرفق

تم عمل الي حضرتك طلبتو 
في الموضوع التالي 

اتمني تبلغني برايك 
ولو محتاج  حاجه تاني تحت امرك 
واعتزر مره تانيه علي التاخير 
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



الرد }}}
تم الشكر بواسطة:
#9
محتــاج أني أحفظ المسـار في قاعدة البيانات بس بدون ما يظهر للمستخدم

الفائده بعدين في صفحة البحث لما أبحث عن شخص أقدر أستعرض ملفه .. ياليت تســاعدني فيها
الرد }}}
تم الشكر بواسطة:
#10
بسم الله الرحمن الرحيم
اللهم صلي علي خاتم النبيين وبارك علي اهله وصحابته الكرام
السلام عليكم اخي الكريم

إن شاء الله طلبك سهل ولكن محتاج منك مثال شامل الفكره الي حضرتك محتاجه وياريت يكون مقتبس من مشروعك لو هتبعتو علي الخاص حتي
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم