求助：先谢谢各位帮忙了

tianxiaoyu

Option Explicit Public db As ADODB.Connection Public rs As ADODB.Recordset Public Sub connect() Set db = New ADODB.Connection db.Open "provider=mssqlserver;data source=cl,uid=sa;pwd=,data base=lg" Set rs = New ADODB.Recordset End Sub

Private Sub CommandButton1_Click()

Dim i As Integer,sql As String

sql = "select count(*) from scrb where nf='" & ComboBox1.Text & "' and yf='" & ComboBox2.Text & "' and rf='" & ComboBox3.Text & "'" rs.Open sql, db i = rs.Fields(0) rs.Close

请求斑竹帮忙，为什么在VBA zhong 运行的时候 显示rs.Open sql, db有错，db=nothing 那？？

谢谢帮忙

wwwwa

试试：

sql = "select count(*) from scrb where nf='" & me.ComboBox1.Text & "' and yf='" & me.ComboBox2.Text & "' and rf='" & me.ComboBox3.Text & "'"

meeting

db.Open "provider=mssqlserver;data source=cl,uid=sa;pwd=,data base=lg" 改成

db.Open "provider=SQLOLEDB;data source=cl,uid=sa;pwd=,Initial Catalog=lg" 试试