Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

[5分]以SQLServer中的表中的数据作为Access窗体数据源

范范  发表于:2012-02-23 15:55:00  
复制

以SQLServer中的表中的数据作为Access窗体中组合框的数据源

SQL Server中有表GL_Accvouch,欲以其中的ino_id作为Access窗体中组合框的数据源,请问以下代码应该如何修改?
Private Sub cboVouchNumber_Enter()
'-------------------建立与SQLServer的连接
    conn = "Provider=SQLOLEDB.1;" _
         & "User ID=sa;" _
         & "Data Source=zhenxin128;" _
         & "Initial Catalog=UFDATA_006_2012"
'确认以上连接是正确的

Me.cboVouchNumber.RowSource = "select ino_id from GL_accvouch where GL_accvouch.cbill=" & Me.TxtKuaiJi & ""
Me.cboVouchNumber.Requery
End Sub

 

Top
零智 发表于:2012-03-10 21:04:47

没有SQL装备电脑,建议几点:

 

1、语句问题:" & Me.TxtKuaiJi & "",后面怎么会二个引号呢?应该加一对单引号:'" & Me.TxtKuaiJi & "'"

 

2、感觉少了SQL运行语句,如:

 

    SQL = "select ino_id from GL_accvouch where GL_accvouch.cbill='" & Me.TxtKuaiJi & "'"

    Set rs = cnn.Execute(SQL)

    Me.cboVouchNumber.RowSource = rs!ino_id

    Me.cboVouchNumber.Requery

 

以上未经测试,祝你好运!



总记录:1篇  页次:1/1 9 1 :