VB-数据库-ADO

Question

老师交代的大作业终于完成差不多了,不过有3个小问题,希望大哥们帮忙解决一下:
1.小弟想用一个DATACOMBO做查询源,在一个DATADRID显示,下面是DATACOMBO的代码,strQuery怎么写?
  DATACOMBO链接Derpartment表,DATAGRID链接Person表,两张表都有部门代码,通过部门代码做查询
  Private Sub dtcDepart_Click(Area As Integer)
  Dim strQuery As String
  strQuery = "SELECT * FROM Person WHERE Person.部门代码 = dtcDepart.BoundText "
  datPrimaryRS.RecordSource = strQuery
  datPrimaryRS.Refresh
  End Sub
2.用ADO怎么实现数据库路径相对化,也就是随便把程序放在哪都可以运行,只要数据库文件和程序同
  一个文件夹就可以,随便把程序放在哪个位置都可以运行
3.小弟用Command和Connection做了一个DataReport,为什么,最后报表里面都没有数据显示,而用个一
  般FROM显示数据却成功了.是不是DataReport设置有问题?DataReport的检索结构有什么用,对应的英
  文是什么?
小弟先谢谢各位了,路过的帮忙"顶"一下.

Answer 1

如果部门代码是字符型
strQuery = "SELECT * FROM Person WHERE Person.部门代码 = '" & dtcDepart.BoundText & "'"
如果部门代码是数字型
strQuery = "SELECT * FROM Person WHERE Person.部门代码 = '" & dtcDepart.BoundText "

Answer 2

app.path 就是程序所在路径

Answer 3

//3.小弟用Command和Connection做了一个DataReport,为什么,最后报表里面都没有数据显示,而用个一
  般FROM显示数据却成功了.是不是DataReport设置有问题?DataReport的检索结构有什么用,对应的英
  文是什么?报表窗体上还要添加控件，如rptTextBox rptLabel,并且指定Datamember,Field等才能显示数据

Answer 4

比如你的程序在C:\vb下面，而数据库在C:\vb\database里面
在写连接字符串的时候
"Data Source=" & app.path & "\database\databasename.mdb"
这是连接access数据库的

Answer 5

楼上的大哥大姐们:谢谢了哈
不过对于第2个问题,如果是改 ADOBC 怎么改

Answer 6

还有个问题:
在制作报表时,为什么 RptFution 标签无法添加

Answer 7

2，你用ODBC连接数据库就可以实现不管你程序在哪里都可以执行。
3，我没遇到过这种问题，反正我是直接就实现了

Answer 8

在制作报表时,为什么 RptFution 标签无法添加需要放在"组"节里.

Answer 9

不过对于第2个问题,如果是改 ADOBC 怎么改
---------------------------------------------me.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\db.mdb;Persist Security Info=False"