Access/VBA/Excel-Access記錄修改-05

Part 1：目標

1. 前文中，我們已經獲取了一個工作表（學生信息表）和4個字段（ID，姓名，學號，性別），並輸入了兩行記錄
2. 今天在原有字段的基礎上增加籍貫，語文成績兩個新的字段
3. 並對原張三的記錄做一些修改：修改學號信息，增加籍貫及語文成績信息
   
4. 原記錄：張三，11，男
5. 修改後：張三，1，男，廣東省，85

結果如下

Part 2：代碼

Sub test()
 Dim cnn As New ADODB.Connection '連接
 Dim rs As New ADODB.Recordset
 Dim SQL As String
 Dim tblName
 Dim dbAddr

 dbAddr = ThisWorkbook.Path & "\\學生信息.accdb"
 tblName = "學生信息表"

 '連接數據庫
 With cnn
 .Provider = "Microsoft.ACE.OLEDB.12.0"
 .Open "Data Source=" & dbAddr
 End With

 field1 = "籍貫 text(10)"
 field2 = "語文成績 single"

 '增加字段
 SQL = "ALTER TABLE " & tblName & " ADD " & field1 & "," & field2
 Set rs = cnn.Execute(SQL)

 '補充記錄
 stuName = "張三"
 jiGuan = "廣東省"
 yuWenNote = 85
 newXueHao = 1

 SQL = "Update " & tblName & " SET " _
 & "籍貫=" & Chr(39) & jiGuan & Chr(39) _
 & ",語文成績=" & yuWenNote _
 & ",學號=" & newXueHao _
 & " where 姓名=" & Chr(39) & stuName & Chr(39)

 Set rs = cnn.Execute(SQL)

 cnn.Close
 Set rs = Nothing
 Set cnn = Nothing 


End Sub

Part 3：部分代碼解讀

1. Update 工作表名 set 字段1=X1，字段2=X2 where 字段4=X4
2. 中文釋義：修改（更新）工作表，字段4=X4所在記錄（行）中，字段1的值改為=X1，字段2改為X2
3. 即：通過某一字段的值，定位到某一記錄（行），修改這一記錄（行）中其它字段的值

閱讀更多 excel技能寶典 的文章

關鍵字: 記錄 數據庫 Microsoft