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


الملفات المرفقة
.zip   vb6_countries_cities.zip (الحجم : 14.41 ك ب / التحميلات : 17)
.zip   vb6_countries_cities_v2.zip (الحجم : 14.58 ك ب / التحميلات : 24)
الرد
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال أو برنامج للتعامل مع الماسح الضوئي أو السكانر بإستخدام مكتبة WIA الرائعه Ahmed_Mansoor 21 2,971 منذ 7 ساعة مضت
آخر رد: Ahmed_Mansoor
  مثال تشغيل فورم2 شو دايلج ونقل النتيجة لتكست في فورم 1 عن طريق الفانكشن sendbad100 1 115 21-10-19, 06:53 PM
آخر رد: Amir_Alzubidy
  اجعل خلفية PictureBox شفافة - مثال مرفق Alhootti1 2 148 08-10-19, 11:07 AM
آخر رد: Alhootti1
  [vb6.0] مثال لكيفية عمل المجموعات والتفرع منها sendbad100 4 647 26-09-19, 06:16 AM
آخر رد: اسلام الكبابى
  [مثال] مثال متكامل للتعامل مع قاعدة بيانات من نوع mysql على الانترنت ahmedabdelaliem 18 5,134 01-09-19, 10:08 PM
آخر رد: عماني939
  [vb6.0 version] عكس ترتيب حروف الجملة (ممكن تصلح كنشفير بسيط) سعود 1 148 17-08-19, 10:49 AM
آخر رد: Ahmed_Mansoor
  مثال لتنسيق حجم الأدوات بحسب حجم الفورم Ahmed_Mansoor 19 4,009 29-07-19, 09:31 PM
آخر رد: princeofislam
  [مشروع] مثال تحويل الرقم الى سورة والعكس سعود 3 334 26-06-19, 05:13 AM
آخر رد: Amir_Alzubidy
Lightbulb [مثال] مثال غير كامل للوحة المفاتيح على الشاشة Omar 6.0 3 885 24-05-19, 03:11 AM
آخر رد: الاصيله
  [مثال] مثال لتسجيل الطلاب الاصيله 4 388 24-05-19, 02:59 AM
آخر رد: الاصيله

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


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