+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : اضافة عمود جديد إلى قاعدة البيانات Ado (/showthread.php?tid=5815)
اضافة عمود جديد إلى قاعدة البيانات Ado - RaggiTech - 17-10-12
كاتب الموضوع : AhmedEssawy
كود :
[color=#b1b100]Private[/color] [color=#b1b100]Sub[/color] btnAddColumn_Click[color=#66cc66]([/color]ByVal sender [color=#b1b100]As[/color] System.[color=#66cc66]Object[/color], _
ByVal e [color=#b1b100]As[/color] System.[color=#66cc66]EventArgs[/color][color=#66cc66])[/color] Handles btnAddColumn.[color=#66cc66]Click[/color]
[color=#b1b100]Dim[/color] conSchoolRecords [color=#b1b100]As[/color] [color=#b1b100]New[/color] ADODB.[color=#66cc66]Connection[/color]
conSchoolRecords.[color=#b1b100]Open[/color][color=#66cc66]([/color][color=#ff0000]"Provider=Microsoft.Jet.OLEDB.4.0;"[/color] & _
[color=#ff0000]"Data Source='C:\SchoolRecords.mdb'"[/color][color=#66cc66])[/color]
conSchoolRecords.[color=#66cc66]Execute[/color][color=#66cc66]([/color][color=#ff0000]"ALTER TABLE Employees ADD COLUMN CellPhone string;"[/color][color=#66cc66])[/color]
[color=#b1b100]MsgBox[/color][color=#66cc66]([/color][color=#ff0000]"A new column named CellPhone has been added to the Employees table."[/color][color=#66cc66])[/color]
conADO.[color=#b1b100]Close[/color]
[color=#b1b100]End[/color] [color=#b1b100]Sub[/color]