Execl_VBA操作Access数据库。查询，更新，删除
一、主要界面如下：
1、查询:点击后，先 弹出inputbox 输入 班级 再 查询 出对应班级信息，并从B2开始对应显示。（班级编码为:四位年份+两们序号，如201403）
2、保存：可以是单元格内容改变后，直接就保存到数据库，但最好是只当点保存的时候才进行保存到数据库的操作
3、删除：点后 输入学号 提示确定 就删除，（学号是唯一的）
二、也许极小几率可能用到增加按钮，也请做上一个。增加方式随意，备注如何使用就好。
三、如果可以的话，请在代码里加写注释，方便我以后功能上 的修改，谢谢
四、请把文件用附件也上传，没有上传权限的，可以私信我联系方式。
由于数据库里含不可外传信息，就不提供下载了。你们自己随便编几个就好。
Set adoRt = CreateObject("ADODB.RecordSet")
'// 设置SQL 语句
strSQL = "SELECT * FROM TMB WHERE False"
With adoRt
'// 设置需要连接数据库
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TM.mdb"
.CursorLocation = 3
.CursorType = 1
.LockType = 3
'// 设置SQL语句
.Source = strSQL
'// 准备打开记录集
.Open
'删除TMB表中的所有记录
if adort.recordcount<>0 then
adort.movefirst
do while not adort.eof
adort.delete
adort.movenext
loop
endif
'// 新增记录
.AddNew
'// 赋值
.Fields("TMZF").Value = Range("识别号")
'// 更新
.Update
'// 判断并关闭记录
If .State = 1 Then
.Close
End If
End With
'// 从内存中释放
Set adoRt = Nothing追问
送你四个字：答非所问
你随便加几个字段，填几个内容就好了，
关键是代码
哥～～ 求代码啊？？？？几个字段就难倒你了？
Execl_VBA操作Access数据库。查询,更新,删除
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\TM.mdb" .CursorLocation = 3 .CursorType = 1 .LockType = 3 '\/\/ 设置SQL语句 .Source = strSQL '\/\/ 准备打开记录集 .Open '删除TMB表中的所有记录 if adort.recordcount<>0 then ...
VBA 删除access数据库记录
删除\/插入 (delete\/insert) 利用的是CurrentDb.Execute(stSql)。代码如下：[plain] view plaincopy '拼写删除指定PR Number的SQL文 stSql = "DELETE FROM [000_BASTS] WHERE [PR NR] = '" & pr_nr & "'"'执行SQL文 CurrentDb.Execute (stSql)...
利用VBA从Access数据库中查找数据?
你可以用sql语句 insert into 表名(字段1,字段2)values（'字段1内容','字段2内容'）可以用vba和access链接后 用update功能 rst.addnew ...'添加的内容 rst.update
利用VBA从Access数据库中查找数据?
打开VBA编辑器的两种方式：Excel → 开发工具 → Visual Basic：打开VBE后，点击插入，选择模块，就可以在该项目下新建一个空白模块。Excel → 开发工具 → 插入 → 控件 → 右键控件 → 指定宏：可以直接将宏绑定到控件上，然后进行编辑。进行编写代码前的准备工作：Visual Basic → 工具 → 引用：...
vba如何调用Access的查询,并显示查询结果?
1、首先，在电脑中找到并打开Access数据库，如下图所示。2、然后点击“数据库工具”选项卡中的“Visual Basic”，如下图所示。3、在弹出的VBA界面中，先选择数据库，然后点击右键，选择“插入”，“模块”，不同于Excel中的VBA，Access中的VBA代码需要放置于模块中，如下图所示。4、在模块中输入VBA...
怎么用vba删除ACCESS表中数据
rs.Updata '把删除动作反映到数据库中 end sub 如果是删除整个字段用：rs. Fields.Delete("字段名")替换掉"rs.Delete"如果是只删除该纪录的某一字段的内容用: rs. Fields(n).value=""替换掉"rs.Delete"如果是删除整个表用：DoCmd.DeleteObject acTable, "表名"（不是DAO方法，单独使用，...
高手来!关于将Excel中数据用VBA代码读到Access中
用excel VBA通过ADO和SQL操作Access数据库，所谓操作数据库就是查询、删除、添加数据，你可以用添加数据方法将excel表数据添加到Access数据库。
EXCEL vba如何批量修改 access 数据
首先，想说一下 你的这些记录是在ACCESS中已经存在的，那么就需要一个字段来唯一区分每个记录，但从你的数据中没有看到。那么向ACCESS中更新某一行时就难以确定目标行。那么处理时就只有一个办法，删除ACCESS中所有数据，然后重新全部添加 不知道这样能接受……至于如何添加 就是使用ADO对象来操作ACCESS表...
EXCEL VBA 打开Access数据库文件
一、导入方法：Sub 把Excel数据插入数据库中()Dim conn As ADODB.Connection Dim WN As String Dim TableName As String Dim sSql As String Dim tStr As String '数据库名，请自行修改，路径与当前工作簿在同一目录 WN = "进销存表.mdb"'数据库的表名与当前工作表名一致 TableName = ...
请教怎么在access中用VBA导入excel数据到access库
1、首先为导入文件设置一个按钮：（更新数据）2、为“更新数据”按钮添加执行代码：Private Sub Command87_Click()If MsgBox("请准备好导入的文件！", vbOKCancel, "打印确认") = 1 ThenDim xdlj As String 'xdlj:相对路径Dim dklj As String 'dklj:打开路径dklj = od()If Not (dklj = "...
