用VB编写的向ACCESS数据库添加记录的方法
【娱乐休闲】
【生活服务】
【电脑网络】
【文体教育】
【行业部门】
文章浏览→→→用VB编写的向ACCESS数据库添加记录的方法用VB编写的向ACCESS数据库添加记录的方法
下面是用VB编写的向ACCESS数据库添加记录的程序。使用了两种方法。方法一使用Recordset对象的AddNew方法。Private Sub Command1_Click()&&& Dim cn AsADODB.Connection&&&&& Dim rs AsADODB.Recordset&&&&&&& Dim sql AsString&&&&&&&&&&&&&&&&&&&&&& Set cn = NewADODB.Connection&&&&& cn.Open"PROVIDER=Microsoft.Jet.OLEDB.4.0;#Source=c:\db1."&&&&&&&&sql = "select id,name fromTest"&&&&&'将SELECT语句，赋值给字符串变量sql&&&&&&&&&Set rs = NewADODB.Recordset&&&&&&‘使用rs对象变量的Open方法，执行SELECT语句，并将查询结果返回给rs&&&&&&&&&&&&&rs.Open sql, cn, adOpenForwardOnly,adLockOptimistic&&&&&&&&&&&&&&rs.AddNew&&&&&&&&&&&&&rs(0)="001"&&&&&&&&&&&&rs(1)="张三"&&&&&&&&&&&&rs.update&&&&&&&&&&&&&rs.Close&&&&&cn.Close&&&&& Set rs =Nothing&&&& Set cn =Nothing&End Sub方法二直接使用INSERT语句。Private SubCommand1_Click()&&&&& Dim cn AsADODB.Connection&&&&& Set cn = NewADODB.Connection&&&&& cn.Open"PROVIDER=Microsoft.Jet.OLEDB.4.0;#Source=c:\db1."&&&& '下面的语句使用了Connection对象的Execute方法执行了INSERT语句。&&&&& cn.Execute"INSERT INTO test(id,name) VALUES ('001','张三')"&&&&& MsgBox("添加数据成功！")&&&&&cn.Close&&&&& Set cn =Nothing&End Sub&所属分类：→&&&&作者：荡凯网络&&&&时间： 11:09:00
All Right Reserved【vb调用access数据库的 家庭财政信息系统 做的简单就行 基本功能有就可以 跪求！！ 我的QQ：】-突袭网
8:11:29【 转载互联网】 作者： &&|&责编：李强
&&& &为了解决用户可能碰到关于"vb调用access数据库的 家庭财政信息系统 做的简单就行 基本功能有就可以 跪求！！ 我的QQ："相关的问题，突袭网经过收集整理为用户提供相关的解决办法，请注意，解决办法仅供参考，不代表本网同意其意见,如有任何问题请与本网联系。"vb调用access数据库的 家庭财政信息系统 做的简单就行 基本功能有就可以 跪求！！ 我的QQ："相关的详细问题如下:RT,我想知道:vb调用access数据库的 家庭财政信息系统 做的简单就行 基本功能有就可以 跪求！！ 我的QQ：===========突袭网收集的解决方案如下===========
解决方案1：我们可以为你提供一份适用于初学者的代码,有别的要求也可以与我们联系,联系我们需要提供你的问题和电子邮件:&#92针对你的描述vb调用access数据库的 家庭财政信息系统 做的简单就行 基;&#92..，但是绝对救急,ES.,有可能帮你,此回复对于所有需求和和来访者有效,请用BaiduHi为我留言
================可能对您有帮助================
问：我一点不会VB，课设非要用VB 说的要清楚一点 包括引用 什么的，最好程序...答：首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能...===========================================问：怎么样将做好的数据库联接到VB中？答：首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能...===========================================问：怎么样将做好的数据库联接到VB中？答：首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,利用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能...===========================================问：数据库中的列包含：国籍，性别，年龄段，百分位，尺寸名称，尺寸大小，...答：添加四个comol，一个Adodc，一个DataGrid控件 Private Sub Command1_Click() mandType = adCmdText Adodc1.RecordSource = "select * from ss where 国籍 like '" & Combo1.Text & "' and 性别 like '" & Combo2.Text & "'and 年龄段 ...===========================================问：新手学VB，学到了ListView控件，想在控件中显示Access数据表中的信息，...答：2010的连接串为： provider=microsoft.ace.oledb.12.0;data source=G:\dl\shiyan\ryxxk.accdb"===========================================问：如题，该怎么写语句答：Private Sub Command1_Click() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim strSql As String Set conn = OpenConnForAccess("test.mdb") strSql = "insert into b select * from c" RunTrans strSql, conn end sub Public Fun...===========================================问：图片中是access中的数据，请用VB 语言，在MSchart 中活出A相温度 B相温...答：这个题目估计分没用。应该不是vb，是它儿子，不懂vs===========================================问：数据库存放在D:\数据\Data\CJSJ.MDB。这台机子的IP是192.168.1.8 计算机...答：开发环境：VB6.0 数据库关联模型：data控件 DBMS：access2000 数据库装在局域网里的另外一台服务器上,请问我怎样在自己的机器上写一个VB程序，来控制和查询这个数据库？？ 以下是连接字符串： "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\...===========================================问：ACCESS 数据报表已经做好了 现在的问题时如何 在VB中用一个Command 单击...答：可以用控件绑定数据库或者语句直接连接数据库。。。===========================================vb+access_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
上传于||文档简介
&&v​b​+​a​c​c​e​s​s
大小：21.97KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢vb做学生成绩管理系统用ACCESS做数据库代码，这个设计怎么做啊-中国学网-中国IT综合门户网站-提供健康,养生,留学,移民,创业,汽车等信息
> 信息中心 >
vb做学生成绩管理系统用ACCESS做数据库代码，这个设计怎么做啊
来源：互联网 发表时间： 7:20:07 责任编辑：王亮字体：
为了帮助网友解决“vb做学生成绩管理系统用ACCESS做数据库代码，这个设计怎么做啊”相关的问题，中国学网通过互联网对“vb做学生成绩管理系统用ACCESS做数据库代码，这个设计怎么做啊”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:vb做学生成绩管理系统用ACCESS做数据库代码，这个设计怎么做啊，具体解决方案如下：解决方案1：
我以前做过，你如果要的话我可以发给你，有一些模板呵呵
解决方案2：
我听我朋友说25175上面有，你可以去看看，有源码的
解决方案3：
说清楚点，这个别人怎么帮你啊
1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答
相关文章：
最新添加资讯
24小时热门资讯
Copyright © 2004- All Rights Reserved. 中国学网 版权所有
京ICP备号-1 京公网安备02号如果在VB编写的程序中使用ACCESS数据库比如使用什么语句来连 - 爱问知识人
(window.slotbydup=window.slotbydup || []).push({
id: '2491531',
container: s,
size: '150,90',
display: 'inlay-fix'
如果在VB编写的程序中使用ACCESS数据库
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮孔件将前
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。
Private Sub Form_Load()
Text1 = ""
With Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.Persist Security Info=False"
Adodc1.RecordSource = "select name from b1 order by name"
Adodc1.Refresh
DataGrid1.Refresh
Private Sub Text1_Change()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.Persist Security Info=False"
Adodc1.RecordSource = "select name from b1 where name &='" & Text1 & "' order by name"
Adodc1.Refresh'对查询更新
DataGrid1.Refresh
这好像是一个死循环吧。
大家还关注