السلام عليكم ورحمة الله
كيف ادرج بيانات ملف نصي في الكومبو بكس
مع جزيل شكري لكل العاملين في ادامة هذا المنتدى
مع فائق شكلي لمساعدتكم لي
سلامي لكم
اضافة محتويات ملف نص الى الكومبو بكس
مرحباً أخي الكريم,
عذراً لكنك لم تحدد كيف تريد إضافة محتويات الملف النصي إلى الـ ComboBox, سأعطيك أمثلة وأنت ثم باختيار ماتريد .
مثال رقم 1 - إضافة جميع المحتويات في عنصر واحد :
ComboBox1[color= #339933;].Items[color= #339933;].Add[color= #009900;]( My[color= #339933;].Computer[color= #339933;].FileSystem[color= #339933;].ReadAllText[color= #009900;]( [color= #0000ff;]"FileName" [color= #009900;]) [color= #009900;])
مثال رقم 2 - إضاقة محتويات النص إلى الـ ComboBox كل سطر على حده :
[color= #b1b100;]For [color= #990000;]Each L [color= #b1b100;]As String In IO[color= #339933;].[color= #990000;]File[color= #339933;].ReadAllLines[color= #009900;]( [color= #0000ff;]"FileName" [color= #009900;]) ComboBox1[color= #339933;].Items[color= #339933;].Add[color= #009900;]( L [color= #009900;]) [color= #990000;]Next L
مثال رقم 3 - إضافة المحتويات بعد تقطيعها بإحدى الرموز ويتم ذلك عن طريق إختيار حرف أو رمز ما, لتبسيط الفكرة, تخيل أن لدينا النص التالي :
123>124>125>126>127
ونريد أن نحصل قيم مابين الرموز >, إذن علينا استخدام العملية Split من النوع String, ويتم ذلك عن طريق ماذكر العملية ( String.Split ) التي تعيد مصفوفة نصية من نصٍ ما.
إستخدام العملية :
Dim SplitStrings [color= #b1b100;]As String[color= #009900;]([color= #009900;]) [color= #339933;]= String[color= #339933;].[color= #990000;]Split[color= #009900;]( Text[color= #339933;], [color= #0000ff;]">" [color= #009900;])
فإذا أردت استخدام هذه العملية عليك بالتالي :
[color= #b1b100;]For [color= #990000;]Each SW [color= #b1b100;]As String In My[color= #339933;].Computer[color= #339933;].FileSystem[color= #339933;].ReadAllText[color= #009900;]( [color= #0000ff;]"FileName" [color= #009900;])[color= #339933;].[color= #990000;]Split[color= #009900;]( [color= #0000ff;]"SomeCharacter " [color= #009900;]) ComboBox1[color= #339933;].Items[color= #339933;].Add[color= #009900;]( SW [color= #009900;]) [color= #990000;]Next SW
حيث من الأمثلة السابقة عليك استبدال الـ( FileName ) بعنوان مكان ذلك الملف ( الملف المراد معالجته ), و ( SomeCharacter ) هو الرمز الذي عليك استبداله بـ( إحدى الرموز التي تريد تقطيع النص بواسطتها ),
بالتوفيق
تم تعديل هذه المشاركة بواسطة Bashar Rabat في 26 مارس 2009 في 22:07
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
مشكور اخي العزيز لقد انقذتني
بارك الله بك وزادك على علمك علما
لاشكر على واجب :)
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
اخي العزيز عندما نفذت الكود التالي
For Each L As Line In IO.File.ReadAllLines( "FileName" )
ComboBox1.Items.Add( L )
Next L
ظهر خطاء على الكلمة line ممكن ترشدني على تصليح الخطاء
أخي الكريم ( اعذرني !!!!!!!!! ),
رجاءً قم باستبدالها بـ( String ) اي استبدل ( Line ) بـ( String ) اعتذر مرة أخرى .
بالتوفيق
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
مشكوووووووووووووووووووور يا احلا صديق
لكن عندي سؤال ثاني ممكن... انا حستغل علمك وادعو لك من الله ان يوفقك دووووووووم
ممكن طلب كود تحديث بيانات
علما انا ارتبط بقاعدة بيانات اكسس
محتاج اعمل تعديل على البيانات
والله فضلك كبير
مرحباً أخي الكريم,
انظر إلى الـ Code التالي :
Imports [color= #990000;]System[color= #339933;].IO Imports [color= #990000;]System[color= #339933;].Data Imports [color= #990000;]System[color= #339933;].Data[color= #339933;].OleDb [color= #000000; font-weight: bold;]Public Sub Form1 [color= #000000; font-weight: bold;]Private withEvents LblID [color= #b1b100;]As Label [color= #000000; font-weight: bold;]Private WithEvents TxtName [color= #b1b100;]As TextBox [color= #000000; font-weight: bold;]Private WithEvents TxtCountry [color= #b1b100;]As TextBox [color= #000000; font-weight: bold;]Private WithEvents TxtCellPhoneNo [color= #b1b100;]As TextBox [color= #000000; font-weight: bold;]Private MyDataBaseFileName [color= #b1b100;]As String [color= #339933;]= [color= #0000ff;]"MyDB.mdb" [color= #000000; font-weight: bold;]Private Sub BtnUpdate_Click[color= #009900;](Byval Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], Byval Ev [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handle s BtnUpdate[color= #339933;].Click Try Dim ClientID [color= #b1b100;]As Integer [color= #339933;]= Interger[color= #339933;].Parse[color= #009900;]( LblID[color= #339933;].Text [color= #009900;]) Dim ConStr [color= #b1b100;]As String [color= #339933;]= [color= #0000ff;]"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" [color= #339933;]& [color= #990000;]_ Path[color= #339933;].Combine[color= #009900;]( Application[color= #339933;].StartupPath[color= #339933;], MyDataBaseFileName [color= #009900;]) Dim Conn [color= #b1b100;]As [color= #000000; font-weight: bold;]New OleDbConnection[color= #009900;]( ConStr [color= #009900;]) Dim UpdCMD [color= #b1b100;]As [color= #000000; font-weight: bold;]New OleDbCommand UpdCMD[color= #339933;].Connection [color= #339933;]= Conn UpdCMD[color= #339933;].CommandType [color= #339933;]= CommandType[color= #339933;].Text UpdCMD[color= #339933;].CommandText [color= #339933;]= [color= #0000ff;]"UPDATE Clients SET [Name] = '" [color= #339933;]& [color= #990000;]Trim[color= #009900;]( TxtName[color= #339933;].Text [color= #009900;]) [color= #339933;]& [color= #0000ff;]"' , Country = '" [color= #990000;]_ [color= #339933;]& [color= #990000;]Trim[color= #009900;]( TxtCountry[color= #339933;].Text [color= #009900;]) [color= #339933;]& [color= #0000ff;]"' , CellPhoneNumber = '" [color= #339933;]& [color= #990000;]Trim[color= #009900;]( TxtCellPhoneNo[color= #339933;].Text [color= #009900;]) [color= #339933;]& [color= #990000;]_ [color= #0000ff;]"' Where ID = '" [color= #339933;]& ClientID [color= #339933;]& [color= #0000ff;]"'" Conn[color= #339933;].Open[color= #009900;]([color= #009900;]) UpdCMD[color= #339933;].ExecuteNonQuery[color= #009900;]([color= #009900;]) Conn[color= #339933;].Close[color= #009900;]([color= #009900;]) MsgBox[color= #009900;]([color= #0000ff;]" تمت عملية الات عديل بنجاح ." [color= #009900;]) Catch MsgBox[color= #009900;]([color= #0000ff;]" حدث خطأ أثناء ع ;ملية التعديل . " [color= #009900;]) [color= #990000;]End Try [color= #990000;]End Sub [color= #990000;]End [color= #000000; font-weight: bold;]Class
كما ترى أولاً قمنا بإستدعاء المراجع > { System.IO, System.Data, System.Data.OleDb } .
قمت بتصريح بعض التحكمات داخل الصف Form1 لأوضح لك فكرة التعديل فليس عليك تصريحهم داخل صف الـ Form الخاص بك,
عملية التعديل :
1 - تصريح إتصال وإعداده وذلك بتصريح ( New OleDbConnect ) وإعطاءه مسار قاعدة البيانات وكما هو موضح في الأعلى أنني استخدم مسار إقلاع البرنامج وثم المتغيّر ( MyDataBaseFileName ) والذي عليك تغييره إلى إسم قاعدة البيانات الخاصة بك, ثم قمنا بتصريح ( أمر Command ) والذي سميناه ( UpdCMD ) لتعدل مانريد عن طريقه, أولاً قمنا بتحديد جهة الإتصال وذلك عن طريق إعداد الخاصية ( Connection ) لتساوي ( Conn ) وهو الإتصال المصرح مسبقاً, ثم ثمنا بإعداد نوع الأمر وذلك عن طريق إعداد الخاصية ( CommandType ) تساوي ( Text أي نص ), بعد ذلك كتبنا شكل الإستعلام والذي هو على الشكل التالي :
UPDATE TableName SET Field1 = 'SomeValue', Field2 = 'SomeValue' Field3 = 'SomeValue' WHERE IDField = 'SomeID'
طبعاً كما ترى أن المستخدم في الجملة السابقة هو( حَدِث "إسم الجدول" ضع "الحقل الأول" = 'قيمة ما', "الحقل الثاني" = 'قيمة ما', "الحقل الثالث" = 'قيمة ما' أين "رقم الهوية" = 'رقم ما' )
( أين أو Where ) تستخدم لشرط معين ونحنا قمنا بإستخدامها كي لايتم تعديل جميع السجلات من ذلك الجدول, تعلم أنه يجب عليّك إستخدام مايميز كل سجل عن أخر والسبب أنه من الممكن أن يتواجد تشابه بين سجل وآخر,
إذا أردت شرح أي شيء أخر رجاءً لاتتردد,
بالتوفيق
تم تعديل هذه المشاركة بواسطة Bashar Rabat في 28 مارس 2009 في 15:04
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.