美女视频免费是黄的在线观看,性感美女脱光视频

vba操作MDB創(chuàng)建MDB　創(chuàng)建刪除表　添加字段及刪除 - ACCESS綜合交流 - OF...

2009.12.09

Dtype = vbCrLf & "OLE 對(duì)象-128" & vbCrLf & "備注-130" & vbCrLf & "超鏈接-130" & vbCrLf & "貨幣-6" & vbCrLf & "日期/時(shí)間-7" & vbCrLf & "是/否-11" & vbCrLf & "數(shù)字-3" & vbCrLf & "文本-130" & vbCrLf & "自動(dòng)編號(hào)-3"

Sub 連接mdb() '打開(kāi)數(shù)據(jù)庫(kù)連接
Dbpath = ThisWorkbook.Path & "\my數(shù)據(jù)庫(kù).mdb"
With Cn
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source=" & Dbpath & ";jet oledb:database password=" & "88547913"
.CursorLocation = adUseClient
.Open
End With
End Sub

Sub 顯示數(shù)據(jù)庫(kù)所有表()
If Cn.State = adStateClosed Then Call 連接mdb
Dim RS As ADODB.Recordset
Set RS = Cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "table"))
Do Until RS.EOF
Set rsColumn = Cn.OpenSchema(4, Array(Empty, Empty, RS("Table_Name").Value))
Do Until rsColumn.EOF
mn = mn & vbCrLf & "字段名:" & rsColumn("Column_Name") & vbTab & "類(lèi)型:" & getDataType(rsColumn("Data_Type")) & ","
rsColumn.MoveNext
Loop
MsgBox "表--" & RS!TABLE_NAME & mn
mn = ""
RS.MoveNext
Loop
End Sub

Sub 顯示數(shù)據(jù)庫(kù)字段名()
If Cn.State = adStateClosed Then Call 連接mdb
tnstr = InputBox("請(qǐng)輸入表名")
Set rsColumn = Cn.OpenSchema(4, Array(Empty, Empty, tnstr))
Do Until rsColumn.EOF
cnstr = cnstr & rsColumn!column_Name & "-" & rsColumn("Data_Type") & ","
rsColumn.MoveNext
Loop
nn = MsgBox(cnstr, vbYesNo, "表--" & tnstr)
Strtextt = cnstr
Call 寫(xiě)文本
End Sub

Function getDataType(typeId)
On Error Resume Next
Select Case typeId
Case 130
getDataType = "文本"
Case 131
getDataType = "數(shù)值"
Case 2
getDataType = "整型"
Case 3
getDataType = "長(zhǎng)整型"
Case 7
getDataType = "日期 / 時(shí)間"
Case 5
getDataType = "雙精度型"
Case 11
getDataType = "是 / 否"
Case 128
getDataType = "OLE 對(duì)象"
Case Else
getDataType = typeId
End Select
End Function

Sub 創(chuàng)建mdb表()
On Error Resume Next
If Cn.State = adStateClosed Then Call 連接mdb
Strname = InputBox("請(qǐng)輸入要?jiǎng)?chuàng)建的表名")
Sql = "CREATE TABLE " & Strname & " (" & InputBox("字段名") & " " & InputBox("類(lèi)型" & Dtype) & ")"
Cn.Execute (Sql) 'rs.Open Sql, Cn
Cn.Close
Set Cn = Nothing
End Sub
Sub 刪除mdb表()
If Cn.State = adStateClosed Then Call 連接mdb
Strname = InputBox("請(qǐng)輸入要?jiǎng)?chuàng)建的表名")
Sql = "DROP Table " & Strname
Cn.Execute (Sql)
Cn.Close
Set Cn = Nothing
End Sub

Sub 添加字段()
If Cn.State = adStateClosed Then Call 連接mdb
tnstr = InputBox("請(qǐng)輸入表名")
Sql = "ALTER TABLE " & tnstr & " ADD COLUMN " & InputBox("字段名") & " " & InputBox("字段類(lèi)型--例如" & Dtype & Text(2))
Rst.Open Sql, Cn, adOpenDynamic, adLockOptimistic
Rst.Close: Set Rst = Nothing
End Sub

Sub 刪除字段()
On Error Resume Next
If Cn.State = adStateClosed Then Call 連接mdb
tnstr = InputBox("請(qǐng)輸入表名")
Sql = "Alter Table " & tnstr & " Drop Column " & InputBox("字段名")
Cn.Execute (Sql)
End Sub

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。

打開(kāi)APP，閱讀全文并永久保存查看更多類(lèi)似文章

刪除存儲(chǔ)過(guò)程

vb中如何將一個(gè)Access表的選定記錄寫(xiě)入到另一Access表思路？

VB ACCESS數(shù)據(jù)庫(kù)的修改、刪除、添加

如何在 Excel 中使用 VBA 消息框和輸入框？

消息框與圖片（-）

VB.NET 軟件打包

更多類(lèi)似文章 >>

国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看