如何在VB中链接数据库,并在列表控件中现示数据库的内容??请给出一个例子,谢谢

hj246 2003-08-19 01:19:50
如何在VB中链接数据库,并在列表控件中现示数据库的内容??请给出一个例子,谢谢
...全文
26 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
kill8108 2003-08-20
  • 打赏
  • 举报
回复
Private Sub Combosinid_Click()
On Error Resume Next
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\通信录.mdb;Jet OLEDB:Database Password=8578;"
Adodc2.CommandType = adCmdText
Adodc2.LockType = adLockOptimistic
Adodc2.CursorType = adOpenDynamic
Adodc2.RecordSource = " select * from student_info where 学号='" & Trim(Combosinid.Text) & "'"
Adodc2.Refresh
txtname.Text = Adodc2.Recordset.Fields(1)
txtmale.Text = Adodc2.Recordset.Fields(2)
txtborn.Text = Adodc2.Recordset.Fields(3)
txtdress.Text = Adodc2.Recordset.Fields(4)
Comboclass.Text = Adodc2.Recordset.Fields(5)
txtmemu.Text = Adodc2.Recordset.Fields(6)
End Sub

只要按以上形式一定能成功。
hj246 2003-08-19
  • 打赏
  • 举报
回复
谢谢,我试下
lihonggen0 2003-08-19
  • 打赏
  • 举报
回复
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset

CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
CN.Open

Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic

Set DataGrid1.DataSource = Rs
lihonggen0 2003-08-19
  • 打赏
  • 举报
回复
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset

CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb"

CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
Do Until Rs.EOF
List1.AddItem Rs.Fields("FirstName")
Rs.MoveNext
Loop


lihonggen0 2003-08-19
  • 打赏
  • 举报
回复
Dim CN As New ADODB.Connection '定义数据库的连接存放数据和代码
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockReadOnly

Do Until Rs.EOF
Combo1.AddItem Rs.Fields("FirstName")
Rs.MoveNext
Loop
1,databasesearch.ZIP数据库查询示例程序(3KB)2,dbgrid.ZIP在DBGRID控件的单元格实现下拉列表框(3KB)3,flex.ZIP 隐藏FlexGrid的某些行(2KB)4,dbpic.ZIP 将图片添加到Access数据库。(19KB)5,dbprint.ZIP 一个数据库打印的范例(8KB)6,exportdb.ZIP 将数据库输出到一个文本文件(5KB)7,sqlcount.ZIP 从一次SQL查询获得多个查询数值(6KB)8,createnewdatabase.ZIP 通过程序在磁盘上建立一个新的Access数据库文件。(2KB)9,munir.ZIP 显示数据库内容例子(13KB) 10,shahida.ZIP query数据库例子(12KB)11,datafile.ZIP 创建和修改自定义的数据库 (20KB)12,edittbls.ZIP 演示编辑一个数据表 (9KB)13,graphdb.ZIP 从数据库读取数据并将它放入图形,需要mschart ocx (6KB)14,binarydb.ZIP 快速数据库的编程实现 (11KB)15,tysjk.zip 数据库观察器(8KB)16,creatmdb.zip 用代码在程序运行阶段建立MDB数据库文件(4KB)17,datafile1.zip 创建和修改自定义的数据库(5KB)18,datediff.zip 创建和修改自定义的数据库(2KB)19,dbgrid3.zip 使用没有连接到数据库的 DBGrid 控件(5KB)20,mschart.zip 从数据库读取数据进行图形显示, 需要MSChart OCX(9KB)21,sqltest.zip 基于SQL Server 6.5的公司进销存管理的实例(298KB)22,dbsprop.zip 数据库属性页(14KB)23,rdsdemo.zip RDS 数据库(18KB)24,accesspwd.zip 读取Access97数据库密码(9KB)25,d032_gzgl.zip嘉兴金蜂软件作坊的定单管理软件(953KB)26,d031_sqltest.zip基于SQL Server 6.5的公司进销存管理的实例(300KB)27,d030_grzb.zip小小收支薄 (67KB)28,d029_addressbook.zip一个简单的数据库程序,包括添加,搜索等功能,是一个入门级的程序(9KB)29,d028_zm046.zip你只要把想做的查询方式告诉它,它就会把相应的SQL语句告诉你,很酷吧?(33KB)30,d027_zm027.zip一个简易的ACCESS的源程序,用到了很多操作数据库的技巧,Cool(128KB)31,d026_binaryDB.zip一定要用微软的数据引擎吗?一定要承受巨大的 DLL 文件?本程序说:No (11KB)32,d025_TwFAQ.zip FAQ统计系统(374KB)33,d024_ddgl.zip一个完整的数据库管理程序(262KB)34,d023_grzb.zip程志刚的个人财务软件的源码,完整的数据库程序(67KB)35,d022_demos-02.zip将MDB文件导出为多种格式文件,如:DBF,TXT等(3KB)36,d021_mdbto.zip范例-如何在 MSFlexGrid 输入资料(3KB)37,d020_sqlcount.zipSQL计数的例子(6KB)38,d019_xlstomdb.zip如何把Excel文件转换成mdb数据库(14KB)39,d018exportdb.zip类似(基本无异)Microsoft Access 的数据库属性页源代码(5KB)40,d017_shahida.zipQuery数据库例子(9KB)41,d016_mschart.zip从数据库读取数据进行图形显示, 需要MSChart OCX(9KB)42,d015_chunkole.zip将多媒体文件保存到数据库,或将数据库的多媒体文件显示出来(90KB)43,d014_dbpic.zip把图片放到数据库(19KB)44,d013_dbgrid3.zip使用没有连接到数据库的 DBGrid 控件(5KB)45,d012_datediff.zip创建和修改自定义的数据库(2KB)46,d011_databasesearch.zip数据库查询示例程序(3KB)47,d010_vbcodelib.zip一个管理VB源码的数据库例子(101KB)48,d009_creatmdb.zip用代码在程序运行阶段建立MDB数据库文件(4KB)49,d008_tysjk.zip一个不错的数据库观察器(8KB)50,d007_mydata.zip个人的数据库(10KB)51,d006.zip建立大于屏幕的虚拟表单(3KB)52,d005.zip数据库打印的例子(8KB)53,d004.zip这个例子演示读取数据库内容并输出到文本文件(5KB)54,d003.zip快速数据库的编程实现(11KB)55,d002.zip演示编辑一个数据表(9KB)56,d001.zip显示数据库内容例子(13KB)57,ddeexamp.zip 利用 DDE 控制Access(39KB)58,sql.zip 数据库及前端应用程序(300KB)59,dbtohtml.zip MDB2HTM(23KB)60,mydata.zip 从库调用图片(10KB)61,gzgl.zip 工资管理(953KB)62,n-10.zip 创建和修改自定义的数据库(20KB)63,n-26.zip 显示数据库内容例子(13KB)

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧