如何使用VB实现对ACCESS数据库中表的数据查询呢 我曾用过ADO控件,ODBC API函数都不能解决对ACCESS数据库中表的数据查询,尤其是查询结果为多条.请大家指点一下,具体代码实现. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 不会吧,直接用ADO就行了。一个例子。使用前,引用microsoft ActiveX Data Objects 2.X Library组件。Public Function M_Access(M_AccessName As String)Dim M_temp As StringDim M_Error As StringOn Error GoTo ineSet conn = New ConnectionSet rs = New ADODB.RecordsetM_temp = ""M_temp = App.Path + "\" & M_AccessName & ";"conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & M_temp & ";"Set rs = conn.Execute("select * from login where number=1")U_Setting.name = rs.Fields(0).valueU_Setting.jname = rs.Fields(1).valueU_Setting.adress = rs.Fields(2).valueU_Setting.tel = rs.Fields(3).valueU_Setting.fax = rs.Fields(4).valueU_Setting.zip = rs.Fields(5).valueU_Setting.lxr = rs.Fields(6).valueU_Setting.Servername = rs.Fields(7).valueU_Setting.Databasename = rs.Fields(8).valueU_Setting.odbc = rs.Fields(9).valueU_Setting.username = rs.Fields(11).valueU_Setting.Password = rs.Fields(12).valuers.Closeconn.CloseGoTo inerrine: M_Error = "数据库错误号:" & Err.Number & " 错误内容:" & Err.Description MsgBox M_Error, , "错误信息"inerr:Set rs = NothingEnd Function 谁知道怎样用程序禁用windowsmediaplayer的directshow? VB:麦克输入的笛声,如何实时得到频率 VB配置资源文件里EXE的图标 请教VB搜索数据库的问题 请问如何压缩JPG图片? 使线条粗细变化 两个小问题,请帮我解决 我在那兒能找到vba的幫助文件100分送 求FindWindowsEx例程 VBA,Word中如何将列与列内容调换 已经两天了,就没人可解决吗?分数就那么重要吗? 哪个大哥送我一个水电气管理系统,小弟帮人做作业交,100分送上!!!
一个例子。
使用前,引用microsoft ActiveX Data Objects 2.X Library组件。
Public Function M_Access(M_AccessName As String)
Dim M_temp As String
Dim M_Error As String
On Error GoTo ine
Set conn = New Connection
Set rs = New ADODB.Recordset
M_temp = ""
M_temp = App.Path + "\" & M_AccessName & ";"
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & M_temp & ";"
Set rs = conn.Execute("select * from login where number=1")
U_Setting.name = rs.Fields(0).value
U_Setting.jname = rs.Fields(1).value
U_Setting.adress = rs.Fields(2).value
U_Setting.tel = rs.Fields(3).value
U_Setting.fax = rs.Fields(4).value
U_Setting.zip = rs.Fields(5).value
U_Setting.lxr = rs.Fields(6).value
U_Setting.Servername = rs.Fields(7).value
U_Setting.Databasename = rs.Fields(8).value
U_Setting.odbc = rs.Fields(9).value
U_Setting.username = rs.Fields(11).value
U_Setting.Password = rs.Fields(12).value
rs.Close
conn.Close
GoTo inerr
ine:
M_Error = "数据库错误号:" & Err.Number & " 错误内容:" & Err.Description
MsgBox M_Error, , "错误信息"
inerr:
Set rs = Nothing
End Function