用VB程式碼在SQL SERVER 中建立資料庫,表,列.以及對資料庫的操作
前面看了一編用VB程式碼建立ACCESS資料庫的文章,寫的很好.
根據思路,寫下建立SQL 資料庫的方法,供大家參考.
1:引用ADO2.5lib
2:在窗體上新增一個按鈕COMMAND1
3:按鈕程式碼如下:
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection'定義新的連線
Dim rs As New ADODB.Recordset'定義新的記錄集
Dim strsql As String'定義資料庫連線字串
strsql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source=(local)"'首先連線MASTER資料庫
cnn.Open strsql
strsql = "create database text1"'建立資料庫TEXT1
rs.Open strsql, cnn, adOpenStatic, adLockReadOnly
cnn.Close'關閉連線MASTER是連線
Set cnn = Nothing'釋放連線
strsql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=text1;Data Source=(local)"'重新定位連線資料庫
cnn.Open strsql'開啟連線
strsql = "create table text1( a varchar(50))"'建立表和欄位
rs.Open strsql, cnn, adOpenStatic, adLockReadOnly
MsgBox "ok"
End Sub
以上個人意見,歡迎互相交流
QQ:32416070