تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في الكود
#1
هل يمكن لاحد رؤية المشروع
فكرته انك تدخل له القارة و الدولة و هو يظهر عنها بعض البيانات
ففي حالة عدم وجود تلك البيانات يحصل عليها من الانترنت و يقوم باضافتها الي قاعدة البيانات
المشكلة احيانا يظهر رسالة خطأ اثناء اظهاره للبيانات بان الدولة المطلوبة غير موجودة
بالرغم انه من المفترض انه لا يصل لتلك المرحلة اذا كانت غير موجودة
ممكن احد يساعدني
للاسف لم استطع وضعه في المرفقات لذا يمكنكم تحميله من هنا
https://www.4shared.com/archive/L7r0fQtggm/MyWorldEncyclopedia.html?
الرد
تم الشكر بواسطة:
#2
فى البداية يجب عليك ان تقوم بعمل التالى
فى حدث ComboBox1_SelectedIndexChanged
قام باضافة التالى كاول سطرين فى الحدث
كود :
       ComboBox2.Items.Clear()
       ComboBox2.Text = Nothing

ثانياً الخطاء الذى يحدث معك
والقى يبدو كما ظهر معى هو بسبب مسار الصورة لكل من الخريطة والعلم
حيث ان الصورة بقاعدة البيانات عبارة عن مسار فقط

حتى توضح الامر اكثر انظر الى هذا المسار
كود :
E:\MyWorldEncyclopedia\MyWorldEncyclopedia\bin\Debug\Flags\ao.jpg

تفتكر هذا المسار بالصورة موجودة على كل الاجهزة المستخدمة للبرنامج السورس
طيب تفتكر كل الاجهزة قد تحتوى على دريف E كا هارد ديسك

اذا كنت ستقوم بتسجيل المسار فيجب ان يكون بهذا الشكل
كود :
Flags\ao.jpg

وعند الاستخدام سيتم استدعاء مسار المجلد وليليه مسار الصورة بقاعدة البيانات

التالى هو تعليقى كسؤال
الان انت وضعت الخيارت القارة الثلاثة
وقمت بوضع بعض الدور لقارة افريقيا السؤال هنا كيف يتم وضع او عرض اى بيانات

للدولة غير مسجلة لان اذا كان بالكتابة فلا يعمل وكذلك لا يوجد زر والسبب لا يعمر بالكتابة لانك تستخدم حدث
PHP كود :
ComboBox2_SelectedIndexChanged 

اى عند تحديد الدولة فكيف احدد دولة غير موجودة فى القائمة ؟؟
هذا ما كل ما لحظته سريعاً واحبب ان افيدك به بناءاً على محتوى الموضوع

وسامحنى لم اتمكن من عمل اى تعديل واعادة ارفاق السورس بسبب اختلاف الاصدار
الاصدار المرفق هو بينما لدى 14 اذا كان ما لديك 10 كنت ساتمكن من التعديل عليه دون اى تغيير

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#3
(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 

اى عند تحديد الدولة فكيف احدد دولة غير موجودة فى القائمة ؟؟
هذا ما كل ما لحظته سريعاً واحبب ان افيدك به بناءاً على محتوى الموضوع

وسامحنى لم اتمكن من عمل اى تعديل واعادة ارفاق السورس بسبب اختلاف الاصدار
الاصدار المرفق هو بينما لدى 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 1strData""CompareMethod.Text)
 
                           pos2 InStr(pos1 1strData"km"CompareMethod.Text)
 
                           var strData.Substring(pos1 18pos2 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 1strData""CompareMethod.Text)
 
                           pos2 InStr(pos1 1strData"km"CompareMethod.Text)
 
                           var strData.Substring(pos1 18pos2 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 45pos2 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 1strData""CompareMethod.Text)
 
                           pos2 InStr(pos1 1strData")"CompareMethod.Text)
 
                           var strData.Substring(pos1 16pos2 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.MapLinkmapl)
 
                       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.FlagLinkflagl)
 
                       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 1strData""CompareMethod.Text)
 
                           pos2 InStr(pos1 1strData"km"CompareMethod.Text)
 
                           var strData.Substring(pos1 17pos2 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 1strData""CompareMethod.Text)
 
                           pos2 InStr(pos1 1strData"(#"CompareMethod.Text)
 
                           var strData.Substring(pos1 18pos2 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 1strData""CompareMethod.Text)
 
                           pos2 InStr(pos1 1strData"/km"CompareMethod.Text)
 
                           var strData.Substring(pos1 26pos2 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(flaglThen
                        
'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.SelectedItemLabel2.TextLabel3.TextLabel4.TextLabel5.TextLabel6.TextLabel7.TextComboBox1.SelectedItemMy.Settings.FlagsPathMy.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 
قمت بوضع بعض التعليقات لتوضيح عمل كل كود
الرد
تم الشكر بواسطة:
#4
كلامك جميع وعلى دراية بالامر
ولكن تعال كده اختار اى قارة لم تجد لها اى اسماء دول فى قاعدة البيانات
وقم بكتابة اى اسم لاى دولة تعتقد انه سيتم جلب اى بيانات من خلال النت

طبيعي لا لانك هنا قمت بكتابة اسم الدولة ولم تقوم باختيار الدولة
ولحل هذا يجب عليك ان تضع جميع اسماء الدول والقارة بقاعدة البيانات

بحيث تكون قاعدة البانات تحتوى على كلاً من 

1- جدول الدول 
2- تفاصيل الدول

الجدول الاول هو يوجد به جميع اسماء الدول والقارات
والجدول الثاني هو كما انت تستخدمه حالياً لديك

بحيث الجدول الاول سيقوم بجلب نتائجه فى الكومبو
لكن عند اختيار الخيارات كا قارة و دولة فهنا يعمل شك مع الجدول التانى 
اذا كانت التفاصيل موجودة او لا واذا لم تكن موجودة سيتم جلبها من على النت

بكده انت ستتجنب مشكلة التحديد وكذلك ان لا يقوم باحد كتابة اسم دولة 
ليس بنفس القارة او يكتب الاسم خطاء كتابي

وطبيعة الحال ستقوم بتعطيل الكتابة فى الكومبو

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#5
(08-11-18, 01:55 PM)elgokr كتب :
كلامك جميع وعلى دراية بالامر
ولكن تعال كده اختار اى قارة لم تجد لها اى اسماء دول فى قاعدة البيانات
وقم بكتابة اى اسم لاى دولة تعتقد انه سيتم جلب اى بيانات من خلال النت

طبيعي لا لانك هنا قمت بكتابة اسم الدولة ولم تقوم باختيار الدولة
ولحل هذا يجب عليك ان تضع جميع اسماء الدول والقارة بقاعدة البيانات

بحيث تكون قاعدة البانات تحتوى على كلاً من 

1- جدول الدول 
2- تفاصيل الدول

الجدول الاول هو يوجد به جميع اسماء الدول والقارات
والجدول الثاني هو كما انت تستخدمه حالياً لديك

بحيث الجدول الاول سيقوم بجلب نتائجه فى الكومبو
لكن عند اختيار الخيارات كا قارة و دولة فهنا يعمل شك مع الجدول التانى 
اذا كانت التفاصيل موجودة او لا واذا لم تكن موجودة سيتم جلبها من على النت

بكده انت ستتجنب مشكلة التحديد وكذلك ان لا يقوم باحد كتابة اسم دولة 
ليس بنفس القارة او يكتب الاسم خطاء كتابي

وطبيعة الحال ستقوم بتعطيل الكتابة فى الكومبو

تحياتى لك
وتمنياتى لك التوفيق
شكرا لردك
حاليا انا اعمل علي طريقة عمل البرنامج و ليس الدول و الي ما ذلك
انا فعلا ساضع كل الدول في قاعدة البيانات لكن ليس الان
اظن اني لم استطيع توضيح المشكلة التي تواجهني
لنفرض ان قاعدة البيانات فارغة
قمت باختيار دولة لم يجدها
قام باضافة بياناتها
قمت باضافة دولة اخري و لم يجدها
قام باضافة بياناتها
قمت باضافة دولة اخري غير موجودة في قاعدة البيانات
لكنه لسبب ما يراها و يحاول عرض بياناتها الغير موجودة اصلاً
و يظهر رسالة خطأ
كود :
There is no row at position 0.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تعديل بسيط في الكود :) مجهول 0 22 منذ 9 ساعة مضت
آخر رد: مجهول
  مشكلة صغير ب geckofx 60 الطابعة sva 4 94 أمس, 02:25 PM
آخر رد: sva
  مشكلة اتصال kaiser3D 0 31 أمس, 07:56 AM
آخر رد: kaiser3D
  مشكلة الفورم فى الخلف new_programer 1 49 11-12-18, 05:58 AM
آخر رد: rmnr
  مشكلة عند الضغط على زر التخزين nooralcown 1 43 10-12-18, 03:10 PM
آخر رد: elgokr
  مشكلة فى وضع كود جلب معلومات قاعدة البينات Mohamed Magdy 6 110 09-12-18, 08:14 AM
آخر رد: asemshahen5
  مشكلة ال common items غير ظاهر new_programer 6 140 08-12-18, 03:48 AM
آخر رد: asemshahen5
  مشكلة الشراء باسعار مختلفه نبيل كونكت 8 822 07-12-18, 07:13 AM
آخر رد: atef_020
  مشكلة مع كريستال ريبورت kaiser_noori 0 40 06-12-18, 12:52 PM
آخر رد: kaiser_noori
  مشكلة فى نصوص متغيره ابو روضة 0 48 06-12-18, 09:33 AM
آخر رد: ابو روضة

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


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