+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة في الكود (/showthread.php?tid=27303)
مشكلة في الكود - salahmax12 - 06-11-18
هل يمكن لاحد رؤية المشروع
فكرته انك تدخل له القارة و الدولة و هو يظهر عنها بعض البيانات
ففي حالة عدم وجود تلك البيانات يحصل عليها من الانترنت و يقوم باضافتها الي قاعدة البيانات
المشكلة احيانا يظهر رسالة خطأ اثناء اظهاره للبيانات بان الدولة المطلوبة غير موجودة
بالرغم انه من المفترض انه لا يصل لتلك المرحلة اذا كانت غير موجودة
ممكن احد يساعدني
للاسف لم استطع وضعه في المرفقات لذا يمكنكم تحميله من هنا
https://www.4shared.com/archive/L7r0fQtggm/MyWorldEncyclopedia.html?
RE: مشكلة في الكود - elgokr - 06-11-18
فى البداية يجب عليك ان تقوم بعمل التالى
فى حدث ComboBox1_SelectedIndexChanged
قام باضافة التالى كاول سطرين فى الحدثكود :
ComboBox2.Items.Clear()
ComboBox2.Text = Nothingثانياً الخطاء الذى يحدث معك
والقى يبدو كما ظهر معى هو بسبب مسار الصورة لكل من الخريطة والعلم
حيث ان الصورة بقاعدة البيانات عبارة عن مسار فقط
حتى توضح الامر اكثر انظر الى هذا المسار
كود :
E:\MyWorldEncyclopedia\MyWorldEncyclopedia\bin\Debug\Flags\ao.jpgتفتكر هذا المسار بالصورة موجودة على كل الاجهزة المستخدمة للبرنامج السورس
طيب تفتكر كل الاجهزة قد تحتوى على دريف E كا هارد ديسك
اذا كنت ستقوم بتسجيل المسار فيجب ان يكون بهذا الشكل
كود :
Flags\ao.jpgوعند الاستخدام سيتم استدعاء مسار المجلد وليليه مسار الصورة بقاعدة البيانات
التالى هو تعليقى كسؤال
الان انت وضعت الخيارت القارة الثلاثة
وقمت بوضع بعض الدور لقارة افريقيا السؤال هنا كيف يتم وضع او عرض اى بيانات
للدولة غير مسجلة لان اذا كان بالكتابة فلا يعمل وكذلك لا يوجد زر والسبب لا يعمر بالكتابة لانك تستخدم حدث
PHP كود :
ComboBox2_SelectedIndexChanged
اى عند تحديد الدولة فكيف احدد دولة غير موجودة فى القائمة ؟؟
هذا ما كل ما لحظته سريعاً واحبب ان افيدك به بناءاً على محتوى الموضوع
وسامحنى لم اتمكن من عمل اى تعديل واعادة ارفاق السورس بسبب اختلاف الاصدار
الاصدار المرفق هو 9 بينما لدى 14 اذا كان ما لديك 10 كنت ساتمكن من التعديل عليه دون اى تغيير
تحياتى لك
وتمنياتى لك التوفيق
RE: مشكلة في الكود - salahmax12 - 08-11-18
(06-11-18, 07:58 PM)elgokr كتب :فى البداية يجب عليك ان تقوم بعمل التالىفى حدث ComboBox1_SelectedIndexChangedقام باضافة التالى كاول سطرين فى الحدث
كود :
ComboBox2.Items.Clear()
ComboBox2.Text = Nothing
ثانياً الخطاء الذى يحدث معكوالقى يبدو كما ظهر معى هو بسبب مسار الصورة لكل من الخريطة والعلمحيث ان الصورة بقاعدة البيانات عبارة عن مسار فقط
حتى توضح الامر اكثر انظر الى هذا المسار
كود :
E:\MyWorldEncyclopedia\MyWorldEncyclopedia\bin\Debug\Flags\ao.jpg
تفتكر هذا المسار بالصورة موجودة على كل الاجهزة المستخدمة للبرنامج السورسطيب تفتكر كل الاجهزة قد تحتوى على دريف E كا هارد ديسك
اذا كنت ستقوم بتسجيل المسار فيجب ان يكون بهذا الشكل
كود :
Flags\ao.jpg
وعند الاستخدام سيتم استدعاء مسار المجلد وليليه مسار الصورة بقاعدة البيانات
التالى هو تعليقى كسؤالالان انت وضعت الخيارت القارة الثلاثةوقمت بوضع بعض الدور لقارة افريقيا السؤال هنا كيف يتم وضع او عرض اى بيانات
للدولة غير مسجلة لان اذا كان بالكتابة فلا يعمل وكذلك لا يوجد زر والسبب لا يعمر بالكتابة لانك تستخدم حدث
PHP كود :
ComboBox2_SelectedIndexChanged
اى عند تحديد الدولة فكيف احدد دولة غير موجودة فى القائمة ؟؟هذا ما كل ما لحظته سريعاً واحبب ان افيدك به بناءاً على محتوى الموضوع
وسامحنى لم اتمكن من عمل اى تعديل واعادة ارفاق السورس بسبب اختلاف الاصدارالاصدار المرفق هو 9 بينما لدى 14 اذا كان ما لديك 10 كنت ساتمكن من التعديل عليه دون اى تغيير
تحياتى لكوتمنياتى لك التوفيق
مبدأيا : انا اسف علي ردي المتأخر
و انا اولا اريد ان اوضح بضعة نقاط
1- بالنسبة لمسار الصورة ,المفترض انه يضيفه لقاعدة البيانات مثل ما انت قلت لكن يبدو اني في هذا الجزء قمت بعمل خطأ ما لذا علي ما يبدو ساحتاج الي تعديلها و شكرا للفت نظري
2 - في ComboBox1_SelectedIndexChanged
(اي عند اختيار القارة)
يقوم البرنامج بارفاق كل البلدان الموجودة في Setting معين
و عند اختيار بلد معين يتم التأكد اذا ما كانت موجودة ام لا
ففي حالة وجودها تظهر بياناتها من قاعدة البيانات
و في حالة عدم وجودها يقوم البرنامج لعمل Web Scrapping
لصفحة معينه بها تلك البيانات فيعرضها و يضيفها لقاعدة البيانات لتظهر لاحقا بدون انترنت من قاعدة البيانات
PHP كود :
'Calling The Function of Africa Countries
Africa()
'Checking if The Selected Country is in the database
ChekCustomer("Countries", "CtrName", ComboBox2.SelectedItem)
Dim dt As New DataTable
dt = CheckDataBase("db.accdb", "Select * From Countries Where CtrName ='" & ComboBox2.SelectedItem & " ' ")
'If its There
If There = False Then
'And The ComboBox Selected item is not empty
If ComboBox2.SelectedItem <> "" Then
'And There is Internet Connection
If My.Computer.Network.IsAvailable Then
'Set Connection Variables
Dim pos1, pos2 As Long, var As String
Dim request As WebRequest = WebRequest.Create(page)
Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
Dim datastream As Stream = response.GetResponseStream
Dim reader As New StreamReader(datastream)
Dim strData As String = reader.ReadToEnd
Dim input As String = strData
'Get Flag And Map links
Dim reMapLink As New System.Text.RegularExpressions.Regex("(\w+).gif")
My.Settings.MapLinkData = (reMapLink.Match(input).Groups(1).Value)
Dim reFlagLink As New System.Text.RegularExpressions.Regex("/r/w480/img/flag/(\w+)")
My.Settings.FlagLinkData = (reFlagLink.Match(input).Groups(1).Value)
'Read Info
For a As Integer = 1 To 6 Step +1
'Land Area
If a = 1 Then
pos1 = InStr(strData, "Land Area")
pos1 = InStr(pos1 + 1, strData, "", CompareMethod.Text)
pos2 = InStr(pos1 + 1, strData, "km", CompareMethod.Text)
var = strData.Substring(pos1 + 17, pos2 - pos1 - 17)
Label2.Text = var + "2"
End If
'Water Area
If a = 2 Then
pos1 = InStr(strData, "Water Area")
pos1 = InStr(pos1 + 1, strData, "", CompareMethod.Text)
pos2 = InStr(pos1 + 1, strData, "km", CompareMethod.Text)
var = strData.Substring(pos1 + 18, pos2 - pos1 - 18)
Label3.Text = var + "2"
'No Water Area Countries
If ComboBox2.SelectedItem = "الكونغو" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "الجزائر" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "أنغولا" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "الرأس الاخضر" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "جمهورية افريقيا الوسطى" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "جزر القمر" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "ليسوتو" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "ليبيا" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "ساو تومي وبرنسيبي" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "سيشيل" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "جنوب السودان" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "السودان" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "غينيا الإستوائية" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "اريتريا" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "موريتانيا" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "السودان" Then Label3.Text = "None"
End If
'Total Area
If a = 3 Then
pos1 = InStr(strData, "Total Area")
pos1 = InStr(pos1 + 1, strData, "", CompareMethod.Text)
pos2 = InStr(pos1 + 1, strData, "km", CompareMethod.Text)
var = strData.Substring(pos1 + 18, pos2 - pos1 - 17)
Label4.Text = var + "2"
End If
' Population
If a = 4 Then
pos1 = InStr(strData, "Population")
pos1 = InStr(pos1 + 1, strData, "", CompareMethod.Text)
pos2 = InStr(pos1 + 1, strData, "(#", CompareMethod.Text)
var = strData.Substring(pos1 + 18, pos2 - pos1 - 19)
'The Same Word On The Same Line
If ComboBox2.SelectedItem = "Botswana" Then
var = strData.Substring(pos2 + 45, pos2 - pos1 - 3797 - 32)
End If
Label5.Text = var
End If
' Population Density
If a = 5 Then
pos1 = InStr(strData, "Population Density")
pos1 = InStr(pos1 + 1, strData, "", CompareMethod.Text)
pos2 = InStr(pos1 + 1, strData, "/km", CompareMethod.Text)
var = strData.Substring(pos1 + 26, pos2 - pos1 - 24)
Label6.Text = var + "2"
End If
'Currency
If a = 6 Then
pos1 = InStr(strData, "Currency")
pos1 = InStr(pos1 + 1, strData, "", CompareMethod.Text)
pos2 = InStr(pos1 + 1, strData, ")", CompareMethod.Text)
var = strData.Substring(pos1 + 16, pos2 - pos1 - 16)
Label7.Text = var
End If
Next
'Getting and Downloading Maps
My.Settings.MapLink = "https://www.worldatlas.com/img/areamap/" + My.Settings.MapLinkData + ".gif"
Dim mapl As String = appPath + "\Maps\" + My.Settings.MapLinkData + ".gif"
My.Settings.MapsPath = mapl
If System.IO.File.Exists(mapl) Then
'The file exists
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
PictureBox1.Load(mapl)
Else
'the file doesn't exist
My.Computer.Network.DownloadFile(My.Settings.MapLink, mapl)
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
PictureBox1.Load(mapl)
End If
'Getting and Downloading Flags
Dim flagl As String = appPath + "\Flags\" + My.Settings.FlagLinkData + ".jpg"
My.Settings.FlagsPath = flagl
My.Settings.FlagLink = "https://www.worldatlas.com/r/w480/img/flag/" + My.Settings.FlagLinkData + "-flag.jpg"
If System.IO.File.Exists(flagl) Then
'The file exists
PictureBox2.SizeMode = PictureBoxSizeMode.AutoSize
PictureBox2.Load(flagl)
Else
'the file doesn't exist
My.Computer.Network.DownloadFile(My.Settings.FlagLink, flagl)
PictureBox2.SizeMode = PictureBoxSizeMode.AutoSize
PictureBox2.Load(flagl)
End If
'And Insert Data into DataBase
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=db.accdb")
Dim cmd As New OleDb.OleDbCommand(String.Format("insert into Countries (CtrName,CtrLndA,CtrWtrA,CtrTArea,CtrPop,CtrPopDen,CtrCur,CtrCont,FlagName,MapName) values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}','{9}')", ComboBox2.SelectedItem, Label2.Text, Label3.Text, Label4.Text, Label5.Text, Label6.Text, Label7.Text, ComboBox1.SelectedItem, My.Settings.FlagsPath, My.Settings.MapsPath), con)
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Else
'If No Internet Connection
MsgBox(" يجب الاتصال بشبكةالانترنت لتحميل البيانات ")
End If
End If
Else
'If The Data Is in The DataBase
If There = True Then
Label2.Text = dt.Rows(0).Item(2).ToString
Label3.Text = dt.Rows(0).Item(3).ToString
Label4.Text = dt.Rows(0).Item(4).ToString
Label5.Text = dt.Rows(0).Item(5).ToString
Label6.Text = dt.Rows(0).Item(6).ToString
Label7.Text = dt.Rows(0).Item(7).ToString
PictureBox1.Load(dt.Rows(0).Item(9).ToString)
PictureBox2.Load(dt.Rows(0).Item(10).ToString)
Else
MsgBox("خطأ")
End If
End If 'Calling The Function of Africa Countries
Africa()
'Checking if The Selected Country is in the database
ChekCustomer("Countries", "CtrName", ComboBox2.SelectedItem)
Dim dt As New DataTable
dt = CheckDataBase("db.accdb", "Select * From Countries Where CtrName ='" & ComboBox2.SelectedItem & " ' ")
'If its There
If There = False Then
'And The ComboBox Selected item is not empty
If ComboBox2.SelectedItem <> "" Then
'And There is Internet Connection
If My.Computer.Network.IsAvailable Then
'Set Connection Variables
Dim pos1, pos2 As Long, var As String
Dim request As WebRequest = WebRequest.Create(page)
Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
Dim datastream As Stream = response.GetResponseStream
Dim reader As New StreamReader(datastream)
Dim strData As String = reader.ReadToEnd
Dim input As String = strData
'Get Flag And Map links
Dim reMapLink As New System.Text.RegularExpressions.Regex("(\w+).gif")
My.Settings.MapLinkData = (reMapLink.Match(input).Groups(1).Value)
Dim reFlagLink As New System.Text.RegularExpressions.Regex("/r/w480/img/flag/(\w+)")
My.Settings.FlagLinkData = (reFlagLink.Match(input).Groups(1).Value)
'Read Info
For a As Integer = 1 To 6 Step +1
'Land Area
If a = 1 Then
pos1 = InStr(strData, "Land Area")
pos1 = InStr(pos1 + 1, strData, "", CompareMethod.Text)
pos2 = InStr(pos1 + 1, strData, "km", CompareMethod.Text)
var = strData.Substring(pos1 + 17, pos2 - pos1 - 17)
Label2.Text = var + "2"
End If
'Water Area
If a = 2 Then
pos1 = InStr(strData, "Water Area")
pos1 = InStr(pos1 + 1, strData, "", CompareMethod.Text)
pos2 = InStr(pos1 + 1, strData, "km", CompareMethod.Text)
var = strData.Substring(pos1 + 18, pos2 - pos1 - 18)
Label3.Text = var + "2"
'No Water Area Countries
If ComboBox2.SelectedItem = "الكونغو" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "الجزائر" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "أنغولا" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "الرأس الاخضر" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "جمهورية افريقيا الوسطى" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "جزر القمر" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "ليسوتو" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "ليبيا" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "ساو تومي وبرنسيبي" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "سيشيل" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "جنوب السودان" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "السودان" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "غينيا الإستوائية" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "اريتريا" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "موريتانيا" Then Label3.Text = "None"
If ComboBox2.SelectedItem = "السودان" Then Label3.Text = "None"
End If
'Total Area
If a = 3 Then
pos1 = InStr(strData, "Total Area")
pos1 = InStr(pos1 + 1, strData, "", CompareMethod.Text)
pos2 = InStr(pos1 + 1, strData, "km", CompareMethod.Text)
var = strData.Substring(pos1 + 18, pos2 - pos1 - 17)
Label4.Text = var + "2"
End If
' Population
If a = 4 Then
pos1 = InStr(strData, "Population")
pos1 = InStr(pos1 + 1, strData, "", CompareMethod.Text)
pos2 = InStr(pos1 + 1, strData, "(#", CompareMethod.Text)
var = strData.Substring(pos1 + 18, pos2 - pos1 - 19)
'The Same Word On The Same Line
If ComboBox2.SelectedItem = "Botswana" Then
var = strData.Substring(pos2 + 45, pos2 - pos1 - 3797 - 32)
End If
Label5.Text = var
End If
' Population Density
If a = 5 Then
pos1 = InStr(strData, "Population Density")
pos1 = InStr(pos1 + 1, strData, "", CompareMethod.Text)
pos2 = InStr(pos1 + 1, strData, "/km", CompareMethod.Text)
var = strData.Substring(pos1 + 26, pos2 - pos1 - 24)
Label6.Text = var + "2"
End If
'Currency
If a = 6 Then
pos1 = InStr(strData, "Currency")
pos1 = InStr(pos1 + 1, strData, "", CompareMethod.Text)
pos2 = InStr(pos1 + 1, strData, ")", CompareMethod.Text)
var = strData.Substring(pos1 + 16, pos2 - pos1 - 16)
Label7.Text = var
End If
Next
'Getting and Downloading Maps
My.Settings.MapLink = "https://www.worldatlas.com/img/areamap/" + My.Settings.MapLinkData + ".gif"
Dim mapl As String = appPath + "\Maps\" + My.Settings.MapLinkData + ".gif"
My.Settings.MapsPath = mapl
If System.IO.File.Exists(mapl) Then
'The file exists
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
PictureBox1.Load(mapl)
Else
'the file doesn't exist
My.Computer.Network.DownloadFile(My.Settings.MapLink, mapl)
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
PictureBox1.Load(mapl)
End If
'Getting and Downloading Flags
Dim flagl As String = appPath + "\Flags\" + My.Settings.FlagLinkData + ".jpg"
My.Settings.FlagsPath = flagl
My.Settings.FlagLink = "https://www.worldatlas.com/r/w480/img/flag/" + My.Settings.FlagLinkData + "-flag.jpg"
If System.IO.File.Exists(flagl) Then
'The file exists
PictureBox2.SizeMode = PictureBoxSizeMode.AutoSize
PictureBox2.Load(flagl)
Else
'the file doesn't exist
My.Computer.Network.DownloadFile(My.Settings.FlagLink, flagl)
PictureBox2.SizeMode = PictureBoxSizeMode.AutoSize
PictureBox2.Load(flagl)
End If
'And Insert Data into DataBase
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=db.accdb")
Dim cmd As New OleDb.OleDbCommand(String.Format("insert into Countries (CtrName,CtrLndA,CtrWtrA,CtrTArea,CtrPop,CtrPopDen,CtrCur,CtrCont,FlagName,MapName) values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}','{9}')", ComboBox2.SelectedItem, Label2.Text, Label3.Text, Label4.Text, Label5.Text, Label6.Text, Label7.Text, ComboBox1.SelectedItem, My.Settings.FlagsPath, My.Settings.MapsPath), con)
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Else
'If No Internet Connection
MsgBox(" يجب الاتصال بشبكةالانترنت لتحميل البيانات ")
End If
End If
Else
'If The Data Is in The DataBase
If There = True Then
Label2.Text = dt.Rows(0).Item(2).ToString
Label3.Text = dt.Rows(0).Item(3).ToString
Label4.Text = dt.Rows(0).Item(4).ToString
Label5.Text = dt.Rows(0).Item(5).ToString
Label6.Text = dt.Rows(0).Item(6).ToString
Label7.Text = dt.Rows(0).Item(7).ToString
PictureBox1.Load(dt.Rows(0).Item(9).ToString)
PictureBox2.Load(dt.Rows(0).Item(10).ToString)
Else
MsgBox("خطأ")
End If
End If
RE: مشكلة في الكود - elgokr - 08-11-18
كلامك جميع وعلى دراية بالامر
ولكن تعال كده اختار اى قارة لم تجد لها اى اسماء دول فى قاعدة البيانات
وقم بكتابة اى اسم لاى دولة تعتقد انه سيتم جلب اى بيانات من خلال النت
طبيعي لا لانك هنا قمت بكتابة اسم الدولة ولم تقوم باختيار الدولة
ولحل هذا يجب عليك ان تضع جميع اسماء الدول والقارة بقاعدة البيانات
بحيث تكون قاعدة البانات تحتوى على كلاً من
1- جدول الدول
2- تفاصيل الدول
الجدول الاول هو يوجد به جميع اسماء الدول والقارات
والجدول الثاني هو كما انت تستخدمه حالياً لديك
بحيث الجدول الاول سيقوم بجلب نتائجه فى الكومبو
لكن عند اختيار الخيارات كا قارة و دولة فهنا يعمل شك مع الجدول التانى
اذا كانت التفاصيل موجودة او لا واذا لم تكن موجودة سيتم جلبها من على النت
بكده انت ستتجنب مشكلة التحديد وكذلك ان لا يقوم باحد كتابة اسم دولة
ليس بنفس القارة او يكتب الاسم خطاء كتابي
وطبيعة الحال ستقوم بتعطيل الكتابة فى الكومبو
تحياتى لك
وتمنياتى لك التوفيق
RE: مشكلة في الكود - salahmax12 - 08-11-18
(08-11-18, 01:55 PM)elgokr كتب :كلامك جميع وعلى دراية بالامرولكن تعال كده اختار اى قارة لم تجد لها اى اسماء دول فى قاعدة البياناتوقم بكتابة اى اسم لاى دولة تعتقد انه سيتم جلب اى بيانات من خلال النت
طبيعي لا لانك هنا قمت بكتابة اسم الدولة ولم تقوم باختيار الدولةولحل هذا يجب عليك ان تضع جميع اسماء الدول والقارة بقاعدة البيانات
بحيث تكون قاعدة البانات تحتوى على كلاً من
1- جدول الدول
2- تفاصيل الدول
الجدول الاول هو يوجد به جميع اسماء الدول والقاراتوالجدول الثاني هو كما انت تستخدمه حالياً لديك
بحيث الجدول الاول سيقوم بجلب نتائجه فى الكومبولكن عند اختيار الخيارات كا قارة و دولة فهنا يعمل شك مع الجدول التانىاذا كانت التفاصيل موجودة او لا واذا لم تكن موجودة سيتم جلبها من على النت
بكده انت ستتجنب مشكلة التحديد وكذلك ان لا يقوم باحد كتابة اسم دولةليس بنفس القارة او يكتب الاسم خطاء كتابي
وطبيعة الحال ستقوم بتعطيل الكتابة فى الكومبو
تحياتى لكوتمنياتى لك التوفيق
شكرا لردك
حاليا انا اعمل علي طريقة عمل البرنامج و ليس الدول و الي ما ذلك
انا فعلا ساضع كل الدول في قاعدة البيانات لكن ليس الان
اظن اني لم استطيع توضيح المشكلة التي تواجهني
لنفرض ان قاعدة البيانات فارغة
قمت باختيار دولة لم يجدها
قام باضافة بياناتها
قمت باضافة دولة اخري و لم يجدها
قام باضافة بياناتها
قمت باضافة دولة اخري غير موجودة في قاعدة البيانات
لكنه لسبب ما يراها و يحاول عرض بياناتها الغير موجودة اصلاً
و يظهر رسالة خطأ
كود :
There is no row at position 0.