标题: 请问,如何给组合框赋以行来源(是另一数据库中的一个表user中的字段值) [打印本页] 作者: zdhsw 时间: 2002-11-10 00:02 标题: 请问,如何给组合框赋以行来源(是另一数据库中的一个表user中的字段值) 试了一下语句,但不成功,望高手指点!!,谢谢,
Private Sub Form_Load()
Dim mydb As Database
Dim rst As Recordset
Set mydb = DBEngine.OpenDatabase("c:\kfx.mdb", False, False, ";pwd=yang")
Set rst = mydb.OpenRecordset("user")
Me.Combo6.RowSource = "SELECT 用户名 FROM [c:\kfx.mdb].user"
'Me.Combo6.RowSource = rst("用户名")
rst.Close
mydb.Close
Set rst = Nothing
Set mydb = Nothing
End Sub
[此贴子已经被作者于2002-11-9 16:01:50编辑过]
作者: QINGSOLI 时间: 2002-11-10 16:27
1、你可以把你那个c:\kfx.mdb的密码给取消掉，然后只要一句
Me.Combo6.RowSource = "SELECT 用户名 FROM user in 'c:\kfx.mdb';"