Question

vb 连接access并查找数据

我在做一个程序，需要打开一个共享的文件夹中的access数据库，按movieid列进行查找，找到N（N>=1）个结果后，在查找到每一个结果同一行中，获得MoviePath列的数据，最后，把moviePath列中的数据统统输出到ListBox中，怎么实现啊？
能说一下相关语句么
Set tmpRst = tmpCon.Execute("select movieid,MoviePath from tablename order by movieid")
这句谁能给解释下，怎么实现按id号（由text输入）查找movieid 得到此行中moviepath列的数据，将所有的moviepath数据导入到list中。
能不用控件就不用控件……

Answer 1

我写过这个程序,其实你的要求是每个访问access最基本的了...不管采不采纳我的答案...如果你有什么不懂的...可以加我为好友...我教你原理...你也可以学到点东西,如果你没兴趣.我也可以把原代码发给你...

学过之后你会觉得很简单....就是操作access数据库...

Answer 2

1）使用ADO或者DAO连接ACCESS（使用引用来添加）
2）添加一个文件浏览功能，这样可以让用户选择共享文件夹（包括局域网内的），这个可以直接使用VB的控件，也可以使用API来实现。
3）使用SQL查询语句来实现查找：select moviePath,movieid from 表 where 条件
4）使用do while not rec.eof....loop 来输出所有查询到的记录。并输出到listbox:
rs.movefirst
do while not rs.eof
list1.additem rs.fields("moviePath")
rs.movenext
loop

大概原理就是这么了，很简单的

Answer 3

用Adodc控件连接好数据库，加上几行代码就ok了。

Private Sub Command1_Click()

    Dim sql$

    sql = "select MoviePath from 表名 where movieid=条件" '表名和条件需要你自己填了

    Adodc1.RecordSource = sql

    Adodc1.Refresh

    Do Until Adodc1.Recordset.EOF

        List1.AddItem Adodc1.Recordset("MoviePath")

        Adodc1.Recordset.MoveNext

    Loop

End Sub

Answer 4

注意权限问题。我记得远程打开MDB会出错。不妨复制过来再操作。

Answer 5

在“工程”-“引用”中选中Microsoft Activex Data Objects2.8 Library，用来连接数据库，然后在窗体上添加一command和listbox，然后代码如下：

Private Sub Command1_Click()
Dim tmpCon As New ADODB.Connection
Dim tmpRst As New ADODB.Recordset
tmpCon.CursorLocation = adUseClient
tmpRst.CursorLocation = adUseClient
tmpRst.CursorType = adOpenKeyset
tmpRst.LockType = adLockOptimistic
Dim strCon As String
Dim tmpPath As String
'假设数据库mydb.mdb所在电脑为ABC，
'数据库在共享文件夹sharename下
'数据库密码为123
tmpPath = "\\ABC\sharename\mydb.mdb"
'数据库连接字符串
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & tmpPath & ";Persist " _
& "Security Info=False;Jet OLEDB:Database Password=123;"
'打开连接
tmpCon.Open strCon
Set tmpRst = tmpCon.Execute("select movieid,MoviePath from tablename order by movieid")
If tmpRst.RecordCount > 0 Then
'找到记录
tmpRst.MoveFirst
Do Until tmpRst.EOF
List1.AddItem tmpRst!MoviePath
tmpRst.MoveNext
Loop
End If
'关闭连接
tmpRst.Close
tmpCon.Close
Set tmpRst = Nothing
End Sub

Answer 6

我知道 详细的扣我