+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] أستفسـار ياليت أحد يفيدني فيه (/showthread.php?tid=14208)
الصفحات:
1
2
أستفسـار ياليت أحد يفيدني فيه - adel27 - 22-12-15
الســـلام عليكم ورحمة الله وبركاته
ياليت تسـاعدوني والله تعبت مشروعي ما قدرت أنتهي منه
عندي الآن برنامج البرنامج أشبهه بالأرشيف عباره عن مدخلات (أسـم - ورقم هويه) + قاعدة بيانات sql server
محتاج نقطتين
أن بمجرد ما يقوم المستخدم بأدخال الأسم ورقم الهويه ويضغط على حفظ يحفظ بياناته في قاعدة البيانات وينشـأ له مجلد في مسـار ثابت (برقم الهويه)
والنقطه الأخرى في حال أن المستخدم أدخل بعد فتره نفس الأسم والرقم يعطيه تنبيـه بأن لديه ملف مسبق وسنشأ له ملف داخل الملف القديم وتكون تسمية الملف الجديد تاريخ اليوم أو أي طريقه
وعند البحث عن شخص سيكون البحث برقم الهويه لما أدخل رقم الهويه يعرض لي المجلد من داخل البرنامج ويوضح لي كم يوجد لديه ملف داخل الملف الأساسي
وشكراً
RE: أستفسـار ياليت أحد يفيدني فيه - احمداحمداحمد6 - 22-12-15
تنشئ قاعدة بينات تتكون من ثلاث اعمدة
تضيف الاداة 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
.
.
.
RE: أستفسـار ياليت أحد يفيدني فيه - hamada558 - 23-12-15
جرب وخبرني، في المرة القادمة ضع مثال لما تريد ولا تتركنا ننشء كل شيء من الصفر منشان نجرب
كود :
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 SubRE: أستفسـار ياليت أحد يفيدني فيه - adel27 - 23-12-15
أن شاء الله غداً أرفع لكم مثال أوضح
RE: أستفسـار ياليت أحد يفيدني فيه - zinom - 23-12-15
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ
اللهم صلي علي اشرف الخلق نبي الرحمه وبارك عل اله وصحابته الكرام والتابعين والحقنا بهم في جنات النعيم
ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ
اللهم صلي علي اشرف الخلق نبي الرحمه وبارك عل اله وصحابته الكرام والتابعين والحقنا بهم في جنات النعيم
ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ
اخي الكريم
ـ ـ ـ ـ ـ ـ ـ ـ
حل المشكله
ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ
استنادا لرأي الاخ الكريم
[b]hamada558[/b]
بشأن ارفاق مشروع مكود به مشكتلك
المشروع في المرفقا ت
جاري تكملة باقي طلبك
رجاء : الطلبات تكون علي هيئة عناصر علشان الي بيساعد ما ينساش طلب
RE: أستفسـار ياليت أحد يفيدني فيه - zinom - 23-12-15
السلام عليكم ورحمة الله وبركاته
اللهم صلي علي اشرف الخلق نبي الرحمه وبارك عل اله
وصحابته الكرام والتابعين والحقنا بهم في جنات النعيم
تقبل تحياتي zinom
اللهم صلي علي اشرف الخلق نبي الرحمه وبارك عل اله
وصحابته الكرام والتابعين والحقنا بهم في جنات النعيم
تقبل تحياتي zinom
الحل كاملا لطلبك باذن الله تعالي
اعزرني علي استعجالي
ده الي حضرتك طلبتو
RE: أستفسـار ياليت أحد يفيدني فيه - adel27 - 23-12-15
الله يعطيـــك العافيه شوف المثال اللي أرفقته
الرد الأخيـر لك بدون مرفق
RE: أستفسـار ياليت أحد يفيدني فيه - zinom - 24-12-15
(23-12-15, 08:46 PM)adel27 كتب : الله يعطيـــك العافيه شوف المثال اللي أرفقته
الرد الأخيـر لك بدون مرفق
تم عمل الي حضرتك طلبتو
في الموضوع التالي
اتمني تبلغني برايك
ولو محتاج حاجه تاني تحت امرك
واعتزر مره تانيه علي التاخير
RE: أستفسـار ياليت أحد يفيدني فيه - adel27 - 26-12-15
محتــاج أني أحفظ المسـار في قاعدة البيانات بس بدون ما يظهر للمستخدم
الفائده بعدين في صفحة البحث لما أبحث عن شخص أقدر أستعرض ملفه .. ياليت تســاعدني فيها
RE: أستفسـار ياليت أحد يفيدني فيه - zinom - 26-12-15
بسم الله الرحمن الرحيم
اللهم صلي علي خاتم النبيين وبارك علي اهله وصحابته الكرام
السلام عليكم اخي الكريم
إن شاء الله طلبك سهل ولكن محتاج منك مثال شامل الفكره الي حضرتك محتاجه وياريت يكون مقتبس من مشروعك لو هتبعتو علي الخاص حتي