| 查看: 2206 | 回复: 4 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
roseqining铜虫 (初入文坛)
|
[求助]
如何用VB调用出Access中的数据库？
|
|
|
比如Access中的数据库为： 姓名 学号 年龄 籍贯 若要在VB一个控件中填入年龄的具体数字，符合此年龄的所有人的姓名，学号，籍贯都显示出来！ 谢谢各位的回答！ |
回复此楼» 猜你喜欢
材料学硕318求调剂
已经有8人回复
-
338求调剂
已经有3人回复
-
材料与化工328求调剂
已经有3人回复
-
289求调剂
已经有3人回复
-
化工270求调剂
已经有8人回复
-
一志愿山东大学材料与化工325求调剂
已经有3人回复
-
291 求调剂
已经有3人回复
-
0805总分292，求调剂
已经有8人回复
-
0856化工专硕求调剂
已经有13人回复
-
272求调剂
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 第一次联系老师（或老师秘书）如何写套磁（或询问）邮件！
已经有3人回复
- 氧化铬，氧化亚铬的毒性有多高，实验时如何防范！！！
已经有9人回复
- 请教下：如何求一个函数在一定范围内的全部解
已经有10人回复
- 用硼氢化钠-碘进行还原，反应后处理后如何去除产物中残留有少量碘化物？
已经有11人回复
- 如何配制模拟的含磷废水
已经有9人回复
- 疲劳是如何产生的
已经有10人回复
- 申请过程中 如何写学习计划书（中英文版）
已经有1330人回复
- vb 数据库感觉真难
已经有6人回复
- 【课件】数据库Access
已经有91人回复
- 【分享】Access 2007 数据库管理(随书光盘)【已搜索无重复】
已经有7人回复
- 【求助】vb.net中调用外部程序的问题
已经有3人回复
- 如何导出PE LS-55的三维荧光光谱数据
已经有8人回复
- 【求助】vb.net的DataGridView如何编辑后保存到Access数据库中？
已经有7人回复
- 【求助】固体红外谱图在420左右出现一尖峰
已经有4人回复
libralibra
至尊木虫 (著名写手)
骠骑将军
- 程序强帖: 40
- 应助: 817 (博后)
- 金币: 12914.1
- 红花: 64
- 帖子: 2238
- 在线: 287.3小时
- 虫号: 696514
- 注册: 2009-02-05
- 专业: 计算机软件
4楼2012-04-01 22:39:33
jjdg
版主 (知名作家)
- 程序强帖: 9
- 应助: 223 (大学生)
- 贵宾: 3.926
- 金币: 51005.2
- 红花: 238
- 帖子: 7227
- 在线: 474.2小时
- 虫号: 27000
- 注册: 2003-10-21
- 专业: 药物代谢与药物动力学
- 管辖: 程序语言
2楼2012-03-01 00:39:42
irishcoffee
金虫 (小有名气)
- 应助: 26 (小学生)
- 金币: 1088.1
- 散金: 30
- 红花: 1
- 帖子: 190
- 在线: 120.9小时
- 虫号: 1606591
- 注册: 2012-02-08
- 性别: GG
- 专业: 制造系统与自动化
3楼2012-04-01 21:36:25
emanlee
木虫 (小有名气)
- 应助: 28 (小学生)
- 金币: 3521.6
- 散金: 100
- 红花: 2
- 帖子: 116
- 在线: 125.6小时
- 虫号: 1466309
- 注册: 2011-10-29
- 性别: GG
- 专业: 计算机应用技术
【答案】应助回帖
★ ★
感谢参与，应助指数 +1
jjdg: 金币+1, 感谢应助 2012-04-04 00:25:47
roseqining: 金币+1 2012-04-06 19:26:28
感谢参与，应助指数 +1
jjdg: 金币+1, 感谢应助 2012-04-04 00:25:47
roseqining: 金币+1 2012-04-06 19:26:28
|
下面的代码创建vb与access连接 首先： 'Ctrl+t找Microsoft DataGrid Control.... '菜单"工程"->"引用" 找 Microsoft ActiveX Data Object.... 其次，写代码 Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim SqlStr As String cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB  atabase Password=111"SqlStr = "Select * From 某个表" rst.CursorLocation = adUseClient rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集 Set DataGrid1.DataSource = rst '给DataGrid修改数据源 |
5楼2012-04-03 08:34:02
5