这是我初编连接数据库想求取混合气体绝热指数表的程序,数据库名是“介质绝热指数表”,表名是“介质物性参数表”。
Dim rs As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Private Sub Command3_Click()
 Dim strsql As String
 Dim db As Database
 Set rs = Nothing
 Set cnn = Nothing
 cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\往复式压缩机编程\往复机热动力计算编程\介质物性计算\介质绝热指数表.mdb;Persist Security Info=False"
 cnn.Open
 strsql = "select 绝热指数from介质物性参数表"
 rs.Open strsql, cnn, adOpenStatic, adLockOptimistic‘此句运行时说至少一个参数没有被指定值
 rs.MoveFirst
   Do While Not rs.EOF
   Print rs("绝热指数")
   rs.MoveNext
   Loop
End Sub
烦请给看一下,并帮忙完成求取混合气体绝热指数的代码。谢谢了!