请大家帮帮忙，关注一下好吗

Question

set form2.dblist.datasource=form1.datacontrolexample:set form2.dblist.datasource=form1.adodc
or
set form2.dblist.datasource=form1.dataand so on

Answer 1

回复人： Cooly(苦力)
我按照你的方法做可显示不出来呀
我数据库中设了按编号查询，想把查询到的内容显示在另一窗体中，用DBlist可以显示吧，数据环境设计器可以单独用把，用不用添加ADO 或DATA吧

Answer 2

用ADO可能会方便一些。至少比较灵活。

Answer 3

回复人： madawei(空空)(【恶人谷:交通&文化部部长】) 
干吗欺负我，有力气大话帮我解决问题呀
哼！

Answer 4

ACCESS
希望在所有表单中都能显示

Answer 5

ADO + DataList的实现方法。DBList基本相同。Dim connStr, AccessLocation As String
AccessLocation = "C:\db1.mdb"
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccessLocation & ";Persist Security Info=False"
Adodc1.ConnectionString = connStr
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select Col1,Col2 from Mytable where 字段='条件'"
Adodc1.Refresh
Set DataList1.DataSource = Adodc1
DataList1.DataField = "Col1"
DataList1.BoundColumn = "Col1"
Set DataList1.RowSource = Adodc1
DataList1.ListField = "Col1"Adodc1.Recordset.MoveFirst

Answer 6

回复人： Cooly(苦力) 
我还以为你刚才吃饭去了呢，
谢谢，
我先试试。

Answer 7

回复人： Cooly(苦力) 
Private Sub Form_Load()
Dim strfoundbh As String
Dim connStr, AccessLocation As String
AccessLocation = "e:\lija\dg\db1.mdb"
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccessLocation & ";Persist Security Info=False"
Adodc1.ConnectionString = connStr
Adodc1.CommandType = adCmdText
strfoundbh = InputBox("请输入编号", "输入")
Adodc1.RecordSource ="select bh from tzd where mid(bh,5,1)= '"+ & strfoundbh & + "'"
Adodc1.Refresh
Set DataList1.DataSource = Adodc1
DataList1.DataField = "bh"
DataList1.BoundColumn = "bh"
Set DataList1.RowSource = Adodc1
DataList1.ListField = "bh"Adodc1.Recordset.MoveFirstEnd Sub
其中strfoundbh已经定义成一个字符串了
请看一下这句话有无写错，现在总告诉我语法错误
Adodc1.RecordSource ="select bh from tzd where mid(bh,5,1)= '"+ & strfoundbh & + "'"

Answer 8

不太明白什么意思。
bh是字段名。为什么要mid(bh,5,1)你把你的需求告诉我。

Answer 9

你的意思是说查找bh字段的值的第五位等于strfoundbh的数据？
'SQLServer
adodc1.recordsource="SELECT bh FROM tzd WHERE (SUBSTRING(bh, 5, 1) = '" & strfoundbh "')"'Access 不知道行不行。

Answer 10

哦，Access是用Mid.不好意思。我不怎么用Access
'Accessadodc1.recordsource="SELECT bh FROM tzd WHERE Mid(bh, 5, 1) = '" & strfoundbh "'"