تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] [vb6.0 version] مثال الاضافة الى جدولين بينهم علاقة مخصصة
#1
نفس الكلام هنا
أرجو ان ينال على اعجابكم و استحسانكم
تم اصلاح خطا وتركت الاول للمقارنة


الملفات المرفقة
.zip   vb6_countries_cities.zip (الحجم : 14.41 ك ب / التحميلات : 50)
.zip   vb6_countries_cities_v2.zip (الحجم : 14.58 ك ب / التحميلات : 67)

نصيحة للتخفيف على قاعدة بيانات المنتدى  لا تخزن الصور الخاصة بالسؤال في قاعدة بيانات المنتدى

الرد
#2
بارك الله فيك جعله في ميزان حسناتك
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد
تم الشكر بواسطة: سعود , Amir_Alzubidy , asemshahen5 , حريف برمجة
#3
(23-07-19, 10:58 PM)awidan76 كتب : بارك الله فيك جعله في ميزان حسناتك

وفيك بارك الله...   آمين واياك وكل قاريء هذه الكلمات.

نصيحة للتخفيف على قاعدة بيانات المنتدى  لا تخزن الصور الخاصة بالسؤال في قاعدة بيانات المنتدى

الرد
تم الشكر بواسطة: Amir_Alzubidy , asemshahen5 , حريف برمجة
#4
اللهم آمين
جزاك الله خير اخوي سعود
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة: سعود , asemshahen5 , حريف برمجة
#5
مثالٌ مميزٌ أخي سعود
بارك الله في مجهودك الكبير
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة: asemshahen5 , حريف برمجة , سعود
#6
السلام عليكم
الف شكر اخي الكريم / سعود
دائماً مبدع

باالنسبة للتعامل مع الاكسيس من vb6 يمكن الاستغناء  عن هذه الاسطر
PHP كود :
If rs.State 1 Then rs.Close
rs
.Open "select @@identity"con
Lastid 
rs.Fields(0).Value 

بطلب رقم id   قبل عمل التحديث بعد عمل الاضافة   Lastid = rs![id]
كالتالي

PHP كود :
Private Sub Command1_Click()

List1.Clear
List2
.Clear
Dim Lastid 
As Integer

rs
.AddNew
rs
.Fields("countryname").Value Me.country.Text
Lastid 
rs![id]
rs.Update

Me
.Refresh
List1
.Refresh

rs
.MoveLast
'If rs.State = 1 Then rs.Close
'
rs.Open "select @@identity"con
'Lastid = rs.Fields(0).Value

For Each h In Split(cities.Text, vbCrLf)
rs2.AddNew
rs2.Fields("countryid").Value = Lastid
rs2.Fields("cityname").Value = h
rs2.Update
Next

Me.Refresh
List2.Refresh
rs2.MoveFirst
gd
End Sub 

وضعت الفكرة وانا متردد ربما انك على  علم بها 

 ولكن وضعتها للفائدة العامة ومن باب تنوع الطرق

تحياتي لك وللجميع
الرد
تم الشكر بواسطة: asemshahen5 , سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال قائمة منسدلة مصمم هاوي 3 153 21-05-20, 12:19 AM
آخر رد: Amir_Alzubidy
  [مثال] مثال متكامل للتعامل مع قاعدة بيانات من نوع mysql على الانترنت ahmedabdelaliem 22 6,123 11-03-20, 09:28 AM
آخر رد: MicroDoha
  مثال أو برنامج للتعامل مع الماسح الضوئي أو السكانر بإستخدام مكتبة WIA الرائعه Ahmed_Mansoor 21 4,249 08-12-19, 11:04 PM
آخر رد: Ahmed_Mansoor
  مثال تشغيل فورم2 شو دايلج ونقل النتيجة لتكست في فورم 1 عن طريق الفانكشن sendbad100 1 343 21-10-19, 06:53 PM
آخر رد: Amir_Alzubidy
  اجعل خلفية PictureBox شفافة - مثال مرفق Alhootti1 2 431 08-10-19, 11:07 AM
آخر رد: Alhootti1
  [vb6.0] مثال لكيفية عمل المجموعات والتفرع منها sendbad100 4 916 26-09-19, 06:16 AM
آخر رد: اسلام الكبابى
  [vb6.0 version] عكس ترتيب حروف الجملة (ممكن تصلح كنشفير بسيط) سعود 1 330 17-08-19, 10:49 AM
آخر رد: Ahmed_Mansoor
  مثال لتنسيق حجم الأدوات بحسب حجم الفورم Ahmed_Mansoor 19 4,757 29-07-19, 09:31 PM
آخر رد: princeofislam
  [مشروع] مثال تحويل الرقم الى سورة والعكس سعود 3 628 26-06-19, 05:13 AM
آخر رد: Amir_Alzubidy
Lightbulb [مثال] مثال غير كامل للوحة المفاتيح على الشاشة Omar 6.0 3 1,121 24-05-19, 03:11 AM
آخر رد: الاصيله

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


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