那个大哥大姐，帮帮忙好吗？
怎么样才能将表中的一列添加到combo中，我都搞了半天了都没有成功，请指点一下？

我的一段代码，供参考
    dim sql_ywfw as string
    dim rs_ywfw as adodb.recordset 应为 dim rs_ywfw as new adodb.recordset
    sql_ywfw = "select distinct ms from vttjs.sapywfw"
    If rs_ywfw.State <> adStateClosed Then rs_ywfw.Close
    rs_ywfw.CursorLocation = adUseClient
    rs_ywfw.Open sql_ywfw, conn, 1, 1
    rs_ywfw.MoveFirst
    Do While Not rs_ywfw.EOF
        cmb_bm.AddItem rs_ywfw.Fields("ms")
        rs_ywfw.MoveNext
    Loop
前面连接数据库的语句你应该知道吧，我连的是ORACLE
CMB_BM为控件

[ 本帖最后由 apple0072011 于 2011-8-26 15:03 编辑 ]

二楼大哥，按照你的方法我试着写了一下，但是还是在报错，不知道为什么，请指教。
这个是我写的，你看那错了：Dim sql_Ywfw As String
    Dim con_Str As New ADODB.Connection
    con_Str.ConnectionString = "provider=SQLOLEDB.1;persist security info = false;user id =sa;initial catalog=yangfei"
    Dim rs_Ywfw As ADODB.Recordset
    sql_Ywfw = "select distinct userID from userinfo"
    If rs_Ywfw.State <> adStateClosed Then rs_Ywfw.Close
    rs_Ywfw.CursorLocation = adUseClient
    rs_Ywfw.Open sql_Ywfw, con_Str
    rs_Ywfw.MoveFirst
    Do While Not rs_Ywfw.EOF
        Combo1.AddItem rs_Ywfw.Fields("userID")
        rs_Ywfw.MoveNext
    Loop
 

单步执行您的程序，看哪个语句上面出错：
1、您先确认一下数据库连接是否正确，我没用用过SQL数据库，不知道您的连接是否正确
2、检查这句话：sql_Ywfw = "select distinct userID from userinfo" from后是否要求"数据库名.表名"
3、控件"combo1"是否存在


[ 本帖最后由 apple0072011 于 2011-8-26 10:57 编辑 ]

1.我可以确定数据库连接是正确的
2.第二句也没有问题，查询其他的表都是可以的
3.这个combo1空间肯定是存在的

所以 ，我不知道问题出在哪里，郁闷啊！

Dim sql_Ywfw As String
    Dim con_Str As New ADODB.Connection
    con_Str.ConnectionString = "provider=SQLOLEDB.1;persist security info = false;user id =sa;initial catalog=yangfei"
    Dim rs_Ywfw As ADODB.Recordset
    sql_Ywfw = "select distinct userID from userinfo"
    If rs_Ywfw.State <> adStateClosed Then rs_Ywfw.Close
    rs_Ywfw.CursorLocation = adUseClient
    rs_Ywfw.Open sql_Ywfw, con_Str
    rs_Ywfw.MoveFirst
    Do While Not rs_Ywfw.EOF
        Combo1.AddItem rs_Ywfw.Fields("userID")
        rs_Ywfw.MoveNext
    Loop
红字部分改成"Dim rs_Ywfw As new ADODB.Recordset"

[ 本帖最后由 apple0072011 于 2011-8-26 15:31 编辑 ]

Dim sql_Ywfw As String
    Dim con_Str As New ADODB.Connection
    con_Str.ConnectionString = "provider=SQLOLEDB.1;persist security info = false;user id =sa;initial catalog=yangfei"
    Dim rs_Ywfw As ADODB.Recordset
    sql_Ywfw = "select distinct userID from userinfo"
    If rs_Ywfw.State <> adStateClosed Then rs_Ywfw.Close
    rs_Ywfw.CursorLocation = adUseClient
    rs_Ywfw.Open sql_Ywfw, con_Str
    rs_Ywfw.MoveFirst
    Do While Not rs_Ywfw.EOF
        Combo1.AddItem rs_Ywfw.Fields("userID")
        rs_Ywfw.MoveNext
    Loop
红字部分改成"Dim rs_Ywfw As new ADODB.Recordset"

[ 本帖最后由 apple0072011 于 2011-8-26 15:33 编辑 ]

加上后出现这样的错误：
Dim sql_Ywfw As String
    Dim con_Str As New ADODB.Connection
    con_Str.ConnectionString = "provider=SQLOLEDB.1;persist security info = false;user id =sa;initial catalog=yangfei"
    Dim rs_Ywfw As new ADODB.Recordset
    sql_Ywfw = "select distinct userID from userinfo"
    If rs_Ywfw.State <> adStateClosed Then rs_Ywfw.Close
    rs_Ywfw.CursorLocation = adUseClient
    rs_Ywfw.Open sql_Ywfw, con_Str，1,1
    rs_Ywfw.MoveFirst
    Do While Not rs_Ywfw.EOF
        Combo1.AddItem rs_Ywfw.Fields("userID")
        rs_Ywfw.MoveNext
    Loop

con_Str.open

[ 本帖最后由 Artless 于 2011-8-27 00:29 编辑 ]