'建立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