这是我初编连接数据库想求取混合气体绝热指数表的程序,数据库名是“介质绝热指数表”,表名是“介质物性参数表”。
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
烦请给看一下,并帮忙完成求取混合气体绝热指数的代码。谢谢了!