Public Class Form1 Inherits System.Windows.Forms.Form Private
Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click Dim con As New
OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated
Security=SSPI;Persist Security Info=False;Initial
Catalog=Northwind;Data Source=.;Use Procedure for Prepare=1;Auto
Translate=True;Packet Size=4096;Workstation ID=J;Use Encryption for
Data=False;Tag with column collation when
possible=False") con.Open() Dim cmd As New
OleDb.OleDbCommand("create database jk",
con) cmd.ExecuteNonQuery() con.Close() '建立数据库 End
Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click Dim con2 As New
OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated
Security=SSPI;Persist Security Info=False;Initial Catalog=jk;Data
Source=.;Use Procedure for Prepare=1;Auto Translate=True;Packet
Size=4096;Workstation ID=J;Use Encryption for Data=False;Tag with
column collation when possible=False") con2.Open() Dim cmd As New
OleDb.OleDbCommand("create table kk(id int identity(1,1) not null
constraint id primary key,name char(4) not null)",
con2) cmd.ExecuteNonQuery() Dim cmd2 As New
OleDb.OleDbCommand("create table pp(id int not null,ads char(20)
null)", con2) cmd2.ExecuteNonQuery() con2.Close() '建立2个表 End
Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click Dim con2 As New
OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated
Security=SSPI;Persist Security Info=False;Initial Catalog=jk;Data
Source=.;Use Procedure for Prepare=1;Auto Translate=True;Packet
Size=4096;Workstation ID=J;Use Encryption for Data=False;Tag with
column collation when possible=False") con2.Open() Dim com As New
OleDb.OleDbCommand("alter table pp add primary key (id)",
con2) com.ExecuteNonQuery() con2.Close() '建立约束 End
Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click Dim con2 As New
OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated
Security=SSPI;Persist Security Info=False;Initial Catalog=jk;Data
Source=.;Use Procedure for Prepare=1;Auto Translate=True;Packet
Size=4096;Workstation ID=J;Use Encryption for Data=False;Tag with
column collation when possible=False") con2.Open() Dim com As New
OleDb.OleDbCommand("create proc procname as select * from kk",
con2) com.ExecuteNonQuery() con2.Close() '建立存储过程 End
Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click Dim con2 As New
OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated
Security=SSPI;Persist Security Info=False;Initial Catalog=jk;Data
Source=.;Use Procedure for Prepare=1;Auto Translate=True;Packet
Size=4096;Workstation ID=J;Use Encryption for Data=False;Tag with
column collation when possible=False") Dim com As New
OleDb.OleDbCommand("procname", con2) Dim da As New
OleDb.OleDbDataAdapter() da.SelectCommand = com Dim ds As New
DataSet() da.Fill(ds) DataGrid1.DataSource = ds '显示数据 End
Sub End Class
在Button1_Click中,连接对象的连接字符串和其他Button_Click中的连接字符串不同。因为我门要创建一个新的数据库jk,但是这个数据库并不存在,所以要通过这个连接让它连接到一个sql
server中已有的数据库,获得对整个sql
server的的访问控制权限,再建立jk数据库。而其它的Button_Click直接连接到jk数据库。因为我们要在jk数据库中建立表,存储过程,约束,显示数据。