تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
انشاء جدول جديد Ado
#1
كاتب الموضوع : AhmedEssawy


كود :
[color=#b1b100]Private[/color] [color=#b1b100]Sub[/color] btnCreateTable_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 btnCreateTable.[color=#66cc66]Click[/color]
[color=#b1b100]Dim[/color] conADO [color=#b1b100]As[/color] ADODB.[color=#66cc66]ConnectionClass[/color] = [color=#b1b100]New[/color] ADODB.[color=#66cc66]ConnectionClass[/color]
[color=#b1b100]Dim[/color] strCreate [color=#b1b100]As[/color] [color=#b1b100]String[/color]

conADO.[color=#b1b100]Open[/color][color=#66cc66]([/color][color=#ff0000]"Provider=Microsoft.Jet.OLEDB.4.0;"[/color] & _
[color=#ff0000]"Data Source='School.mdb'"[/color], [color=#b1b100]Nothing[/color], [color=#b1b100]Nothing[/color], [color=#cc66cc]0[/color][color=#66cc66])[/color]
strCreate = [color=#ff0000]"CREATE TABLE Students(FirstName char, MiddleName String, "[/color] & _
[color=#ff0000]"LastName varchar;"[/color]
conADO.[color=#66cc66]Execute[/color][color=#66cc66]([/color]strCreate, [color=#cc66cc]0[/color], [color=#cc66cc]0[/color][color=#66cc66])[/color]
conADO.[color=#b1b100]Close[/color]
[color=#b1b100]End[/color] [color=#b1b100]Sub[/color]
}}}
تم الشكر بواسطة:



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


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