17-10-12, 12:25 AM
كاتب الموضوع : AhmedEssawy
كود :
[color=#b1b100]Private[/color] [color=#b1b100]Sub[/color] btnCreateDatabase_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 btnCreateDatabase.[color=#66cc66]Click[/color]
[color=#b1b100]Dim[/color] catADOX [color=#b1b100]As[/color] ADOX.[color=#66cc66]Catalog[/color]
catADOX = [color=#b1b100]New[/color] ADOX.[color=#66cc66]Catalog[/color]
catADOX.[color=#66cc66]Create[/color][color=#66cc66]([/color][color=#ff0000]"Provider=Microsoft.Jet.OLEDB.4.0;"[/color] & _
[color=#ff0000]"Data Source=C:\Exercise.mdb"[/color][color=#66cc66])[/color]
[color=#b1b100]End[/color] [color=#b1b100]Sub[/color]