vb+sql server的问题

Question

...
If Combo3.Text = "" Then
y_date = i.asinteger
m_date = j.asinteger
sqlstr = "select count(car#) from car,cmodel"
sqlstr = sqlstr + " where car.cmodel=cmodel.cmodel"
sqlstr = sqlstr + " and year(pdate) = "+y_date+""
sqlstr = sqlstr + " and month(pdate)="+m_date+""
Set myrs = mycon.Execute(sqlstr)    
if not isnull(myrs.Fields(1).value)           
   Text1.Text = cstr(myrs.Fields(1).value)     
End If
...

Answer 1

Set mycon = Connection1
运行的时候。就出了错误。
调试。这里高亮度显示了。
大家帮帮忙。
connection1是我用视图/数据窗口视图建立的。
好像是ado吧。
怎么回事呢？
工程栏里。有的呀。
大家帮忙。

Answer 2

Set myrs = mycon.Execute(sqlstr)
myrs.Fields (1)                  //错误在这里。不知道怎么改？
Text1.Text = myrs.Fields(1)      //高手帮忙。 myrs.Fields (1)    是什么意思？有这样的用法么？恕我愚钝，不知所云

Answer 3

我也不清楚。据说是提取单个值的。
可我已经改过了。现在的代码。
Set myrs = mycon.Execute(sqlstr)    
if not isnull(myrs.Fields(1).value)           
   Text1.Text = cstr(myrs.Fields(1).value)     
End If
是这样的啦。帮帮忙。上面的connection问题。怎么解决呢？

Answer 4

把 myrs.Fields (1)                  去掉

Answer 5

Dim mycon As new ADODB.Connection
Dim sqlstr As String
Dim myrs As ADODB.Recordset
Dim mycom As ADODB.Command
i = Combo1.Text
j = Combo2.Text
k = Combo3.Text
mycon.ConnectionString = oconn
mycon.Open

Answer 6

mycon.ConnectionString = oconn
这句。是干吗的？
能不能给解释一下？
为什么不用：  set mycon=connection1   ??
不行吗？

Answer 7

dim oconn as string
 oconn  ="Provider = SQLOLEDB.1;Password=you_Password;Persist Security Info=True;User ID=sa;Initial Catalog=you_database;Data Source=you_servername"
如connection1已配置好，也可如下      dim oconn as string
      oconn = connection1.connectionstringorDim mycon As new ADODB.Connection
Dim sqlstr As String
Dim myrs As ADODB.Recordset
Dim mycom As ADODB.Command
i = Combo1.Text
j = Combo2.Text
k = Combo3.Text
set mycon = connection1
mycon.Open