⑴ VB连接 ACCESS数据库 并实现查询功能
代码连接access
首先 工程---引用，在可引用的引用中将microsoft activex data objects 2.8 library和microsoft activex data objects recordset 2.8 library勾选
然后定义
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
定义好后连接数据库
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "/news.mdb;"
cn.Open
其中数据库为当前路径下的news.mdb，
打开数据库
sql语句自己写
rs.open sql,cn,3,1
这样数据库中sql语句找到的记录都在rs中
MSFlexGrid1.Top = 950
MSFlexGrid1.CellTextStyle = flexTextInsetLight
MSFlexGrid1.Rows = 7 '设置总行数
MSFlexGrid1.Cols = 8 '设置总列数
MSFlexGrid1.GridColor = &H404040 '网格颜色
MSFlexGrid1.ForeColor = &HFFCCCC '字体颜色
MSFlexGrid1.BackColor = vbBlack
MSFlexGrid1.GridLines = 1 '设置网格线的属性
MSFlexGrid1.GridLineWidth = 1 '设置网格线的粗细程序，默认为1
MSFlexGrid1控件的一部分设置，自己找属性看看其他设置
将数据写入表格中
MSFlexGrid1.TextMatrix(0, 0) = "名称"
MSFlexGrid1.TextMatrix(0, 1) = "最新价"
MSFlexGrid1.TextMatrix(0, 2) = "涨跌"
MSFlexGrid1.TextMatrix(0, 3) = " 成交数"
MSFlexGrid1.TextMatrix(0, 4) = "名称"
MSFlexGrid1.TextMatrix(0, 5) = "最新价"
MSFlexGrid1.TextMatrix(0, 6) = "涨跌"
MSFlexGrid1.TextMatrix(0, 7) = "成交数"
将rs中的数据写入表格
for i=0 to 5
MSFlexGrid1.TextMatrix(i, 1) = rs("数据库字段")
rs.movenext
next
⑵ VB中怎么连接ACCESS数据库,并且读取表中数据
Set cn = New ADODB.Connection
sqldata="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.mappath("F:\vb数据\DataBase\DataBase2007.mdb ")
cn.Open sqldata
Set adors = New ADODB.Recordset
adors.Open strsql, cn
MSFlexGrid1.Rows = 1
While Not adors.EOF
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = adors.Fields(0)
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = adors.Fields(1)
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = adors.Fields(2)
adors.MoveNext
Wend
⑶ 在vb中 实现对ACCESS数据 查询
Public Function ConnAccess() As Boolean 'Access数据库连函数
Dim conStr As String
Dim dbName As String
dbName = App.Path & "\data.mdb" '数据库路径
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName & ";Persist Security Info=False;Jet OLEDB:Database Password=123456"
Set dbConn = New ADODB.Connection '定义一个ADODB连接对象
If dbConn.State <> adStateOpen Then '判断ADODB连接是否打开
dbConn.Open conStr '如果不是打开状态 就打开连接
End If
ConnAccess = True
End Function
Public Function CloseAccess() As Boolean '关闭数据库连接
If dbConn.State = adStateOpen Then
dbConn.Close: Set dbConn = Nothing
End If
End Function
Private Sub Commond1_Click()
Dim rs As ADODB.Recordset
Dim Strsql As String
Call ConnAccess
listview.Clear
Set rs = New ADODB.Recordset
Strsql = "SELECT * from company order by id desc"
rs.Open Strsql, dbConn, 1, 1
Do Until rs.EOF
listview.AddItem rs("company")
rs.MoveNext
Loop
rs.Close
Call CloseAccess
end sub
⑷ VB连接ACCESS2007数据库，查找数据库中的“ABC”表中。
adodb.stream.loadfromfile(path)
rs("字段名")
=
stream.read()
rs.update
就放入附件了
至于显示
可以跟picturebox
绑定
直接可以显示的
如果不绑定可以先adodb.stream.
savetofile
到临时文件里
然后
再读取
⑸ 怎样用VB 对access数据库进行查询
看界面上面DataGrid已经有数据显示了，你的VB程序已经连上Access数据库了，现在的问题是如何加查询了
在ADO控件里把数据源从表改成查询，用Select语句代替
⑹ VB和数据库连接好了 怎么样查询Access中的数据
LS应该定义数据库连接或者数据库。
dim
db
as
database,rst
as
recordset
dim
sql
as
string
set
db=opendatabase("D:\LZ的数据库.mdb")
set
rst=openrecordset("表1")
On
Error
Resume
Next
sql="select
Top
5
成绩,学号,姓名
Into
Tem
from
表1
group
by
姓名
order
by
成绩
desc"
db.execute
sql
data1.recordsource="select
*
from
tem"
db.close
1、应该先在数据库里建立临时表tem（一个字段就够了，反正是用来生成数据表的）。
2、应该在VB里建立datagird控件，否则无法显示查询结果。
3、把数据库源改为恰当的数据库名称，以及SQL语句也应该做一定的改动。
⑺ VB如何查找Access中指定数据
在窗体上放一个adodc控件，用来连接数据库，放一个label控件，用来显示信息，也可以用adodb对象来连接数据库，代码类似的。
Private Sub Cmdok_Click()
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If Txtid = Adodc1.Recordset.Fields("userid") Then
If Txtpw = Format(Adodc1.Recordset.Fields("密码")) Then
Form2.Show
Unload Me
Exit Sub
Else
Beep
Label3 = "密码错误!"
Txtpw.SetFocus
Exit Sub
End If
End If
Adodc1.Recordset.MoveNext
Loop
Label3 = "用户名不存在,请重新输入!"
Txtid.SetFocus
End Sub
Private Sub Form_Load()
'连接数据库代码
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & App.Path & "\login.mdb;Jet OleDb:DataBase Password="
Adodc1.RecordSource = "select * from users"
Adodc1.Refresh
End Sub
⑻ VB怎么连接访问Access数据库
使用Visual Basic作为前端开发语言，与SQL Server接口有几种常用的方法，即：
①数据访问对象/Jet
②为ODBC API编程
③使用SQL Server的Visual Basic库(VBSQL)为DB库的API编程
④RDO 远程数据对象(RemoteData Objects)
⑤ADO 数据对象(Active Data Objects)
1、数据访问对象/Jet
VB支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access数据库而开发的程序接口对象。使用DAOs访问SQL Server的过程如下：应用程序准备好语句并送至Jet，Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL语句且返回结果。下面是一个用DAOs访问SQL Server的VB实例。
注释：Form Declarations
Dim mydb As Database
Dim mydynaset As Dynaset オ
Private Sub Form_Load()
Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales")
Set mydynaset = mydb CreateDynaset("Select*from Customers") オ
End Sub ァ
上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。
2、利用ODBC API编程
ODBC(Open Database Connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBC.DLL)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器(SQLSRVR.DLL)把它们送到服务器中。
下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句句柄。
Global giHEnv As Long
Global giHDB As Long
Global giHStmt As Long
Dim myResult As integer
Dim myConnection As Srting
Dim myBuff As String*256
Dim myBufflen As Integer
If SQLAllocEnv(giHEnv)<>SQL_SUCCESS Then
MsgBox"Allocation couldn注释：t happen!"
End If
If SQLAllocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then
MsgBox "SQL Server couldn注释：t connect!"
End If
myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales"
myResult=SQLDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED)
myResult=SQLAllocStmt(giHDS,giHStmt)
myResult=SQLFreeStmt(giHStmt,SQL_COLSE)
rsSQL="Select * from Customers Where City = "Hunan""
myResult = SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))
3、使用VBSQL对DB库API编程
DB库是SQL Server的本地API，SQL Server的Visual Basic库(VBSQL)为Visual Basic程序员提供API。从一定意义上说，VBSQL是连接Visual Basic程序到SQL Server的性能最好最直接的方式。VBSQL包含以下三个文件：
VBSQL.VBX： 包含库函数，具有访问重要的消息和处理错误的能力
⑼ VB 如何查询 access 数据库
由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库.这里我们采用ADODB,相比DAO和能访 问数据库的API来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者.而Access数据库比起SQL,也相对简单了很多,且能 够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access. 就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office中的Access或VB自带的VISDATA. 当数据库设计好了以后,我们可以开始数据库编程了. 首先,我们需要引用ADO.具体的方法是,在工程 -- 引用 中,找到Microsoft ActiveX Data Object *.* Library,这里的*.*是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确 保程序在能识别旧版本Access的同时,也能识别较新版本的Access. 然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset. 创建这两个对象的具体方法是: 1.在引用后,使用New关键字,如 Private Conn As New ADODB.Connection Private Reco As New ADODB.Recordset 2.在没引用时,用CreateObject创建对象: Dim Conn,Reco Set Conn = CreateObject(ADODB.Connection) Set Reco = CreateObject(ADODB.Recordset) 创建了对象之后,下一步我们要做的就是打开数据库了. 先看下面的代码,可以成功的打开数据库. Conn.open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:Main.mdb 这句代码打开了D盘中的Main.mdb这个数据库. Connection.Open方法的第一个参数是连接代码,它将传递给系统的数据库引擎.前半部分 Provider=Microsoft.Jet.OLEDB.4.0,它表示了数据库的类型.不同的数据库可能会不同.后半句 Source=d:main.mdb它表示了数据库所在的绝对路径. 打开数据库之后,还要打开表.假如数据库中有一个表,表名为Users,字段有两个,一个为用户名,一个为密码.那么看以下代码. 1.想返回Users中,[用户名]为去年烟花的[密码] Recordset.open Select 密码 From Users Where 用户名='去年烟花',Connection,1,1 之后我们就可以把用户输入的密码进行比较,看是否允许登录. If Recordset.eof and Recordset.bof then Msgbox 用户不存在!,16 Else If PassWord =Recordset(密码).value then msgbox 登录成功!,64 Else msgbox 密码错误!,32 End If End If Recordset.Close 2.假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来 Recordset.open Select * From Users,Connection,1,1 这时,表已经被打开,我们就用以下代码把它显示出来. Do whlie Not Recordset.eof Print 用户名: & Recordset(用户名).value & 密码: & Recordset(密码).value Recordset.MoveNext Loop Recordset.Close 由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是SQL语句. Select [字段名] From 表名 [Where 条件] 这里的条件可以省略.且字段名也可以用*来代替所有字段. 需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开[用户名]字段,所以这一句Recordset(密码)就没有值存在,还有可能出错. 后面的条件,可以用=、>、<等运算符.比如 Where ID > 32.(这里假设[ID]为数字型.) 这是打开的部分.第二个很重要的部分就是查询记录. 数据库它并不是把所有记录全部放到一个变量中备用的.而是以当前记录的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选. 定位: 移动到下一条 Recordset.MoveNext 移动到上一条 Recordset.MovePrevious 移动到最后一条 Recordset.MoveLast 移动到第一条 Recordset.MoveFrist 移动到某一条 Recordset.Move Number 筛选: Recordset.Find 条件 如:[用方法(2)打开表之后] Private Sub Command1_Click() Recordset.Find 用户名= & text1.text If Recordset.Eof <> True Then Msgbox 该用户的密码是: & Recordset(密码).value,64 Else Msgbox 未找到该用户的资料!,16 End If End Sub MoveNext 只有当Eof不为True时,才可用,否则发生错误.而MovePrevious刚是Bof不为True时.... 而只要Eof 和 Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用. Find 方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof为True.找到则当前的值就是符合条件的记录. 第三个部分就是添加/修改记录. 修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了. 比如:[(修改密码)按方法(1)打开表之后] Recordset(密码).value = 123456 Recordset.Updata 需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效. 而添加记录则可以用以下代码来实现: Recordset.addnew Recordset(用户名).value = Admin Recordset(密码).value = Admin Recordset.Updata 这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法. 到这里就差不多了,最后说一下上面提到的几个方法. Recordset.Open SQL语句,数据源,游标类型,打开方法 SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据 数据源就是一个打开之后的Connection对象. 填1就可以了 打开方法对应了几个常数,具体哪几个可以从对象浏览器里看。 对应数值的意义: 1 只读 2 独占 3 可写 4 自已可写,别人可读。 Connection.open 连接代码,服务器用户名,密码。
⑽ vb中access数据库查询
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open connstring ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & “数据库的路径和名字” & ";Persist Security Info=True;Jet OLEDB:Database Password= & "数据库密码"
sql = "Select * From “ & ”表名" & where ID=20"
Rs.Open sql, Conn, 1, 3
If NOT rs.eof then
m_date= rs("日期型字段的名字")
m_data= rs("数值型字段的名字")
end if
end sub