vb創建數據表
Public Sub Create_TABLE(TableSTR As String)
'----------------------創建表---------------------------
'TableSTR 創建表的命令字符串
'-------------------------------------------------------
On Error GoTo errc
Dim connectstring As String
Dim con2 As ADODB.Connection
Dim Trs As ADODB.Recordset
Dim i As Integer
Dim SQL As String
Dim SQLstr() As String
Set con2 = New ADODB.Connection
Call Open_Recordset(Trs)
SQL = "select * from Data_info"
Trs.Open SQL
If Trs.EOF Then
MsgBox "請先創建數據庫!"
Exit Sub
End If
'connectstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=."
connectstring = "Driver=SQL Server;Server=" & Trs("IP") & ";UID=" & Trs("Servername") & ";PWD=" & Trs("Serverpwd") & ";Database=" & Trs("Dataname")
con2.Open connectstring
SQLstr = Split(TableSTR, "GO")
For i = 0 To UBound(SQLstr)
DoEvents
con2.Execute (SQLstr(i))
Next i
con2.Close
Exit Sub
errc:
MsgBox "建表失敗,請按正確的格式輸入建表命令!" & Chr(13) & Chr(10) & _
"例如:" & Chr(13) & Chr(10) & _
"CREATE TABLE 表名" & Chr(13) & Chr(10) & _
"(" & Chr(13) & Chr(10) & _
"字段名1 數據類型 約束方式," & Chr(13) & Chr(10) & _
".............." & Chr(13) & Chr(10) & _
"字段名N 數據類型 約束方式" & Chr(13) & Chr(10) & _
")", vbOKOnly + vbInformation, "提示"
End Sub
'----------------------創建表---------------------------
'TableSTR 創建表的命令字符串
'-------------------------------------------------------
On Error GoTo errc
Dim connectstring As String
Dim con2 As ADODB.Connection
Dim Trs As ADODB.Recordset
Dim i As Integer
Dim SQL As String
Dim SQLstr() As String
Set con2 = New ADODB.Connection
Call Open_Recordset(Trs)
SQL = "select * from Data_info"
Trs.Open SQL
If Trs.EOF Then
MsgBox "請先創建數據庫!"
Exit Sub
End If
'connectstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=."
connectstring = "Driver=SQL Server;Server=" & Trs("IP") & ";UID=" & Trs("Servername") & ";PWD=" & Trs("Serverpwd") & ";Database=" & Trs("Dataname")
con2.Open connectstring
SQLstr = Split(TableSTR, "GO")
For i = 0 To UBound(SQLstr)
DoEvents
con2.Execute (SQLstr(i))
Next i
con2.Close
Exit Sub
errc:
MsgBox "建表失敗,請按正確的格式輸入建表命令!" & Chr(13) & Chr(10) & _
"例如:" & Chr(13) & Chr(10) & _
"CREATE TABLE 表名" & Chr(13) & Chr(10) & _
"(" & Chr(13) & Chr(10) & _
"字段名1 數據類型 約束方式," & Chr(13) & Chr(10) & _
".............." & Chr(13) & Chr(10) & _
"字段名N 數據類型 約束方式" & Chr(13) & Chr(10) & _
")", vbOKOnly + vbInformation, "提示"
End Sub
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.