用VB6.0开发船机桨匹配优选程序

Question

    我要做一个船机桨匹配程序，实现船舶设计计算机程序化，现在数据库都建立好了，也用VB建立了与数据库的连接，可就是不知道怎么实现从
ACCESS数据库文件中提取数据，并且将这些数据查询出来后赋值给一定的变量。论坛里有哪位做过这样的设计吗，或者懂得，能给点帮助和建议吗，
谢谢

Answer 1

不知道怎么实现从ACCESS数据库文件中提取数据百度搜索 读写数据库

Answer 2

支持，楼主您都不知道使用什么方法连接，那人家帮您做了您都不知道代码是什么。要多GOOGLE一下。

Answer 3

我需要的就是一些代码。数据库我已经连接好了，就是不知道怎么提取出数据来赋值给一定的变量。我是用下面的语句来连接的。
Option Explicit
Dim RS As New ADODB.Connection
Dim CN As String
Private Sub Form_click()
CN = "provider =microsoft office 12.0 access database engine ole db provider;data source=d:\我的文档\AU系列螺旋桨回归系数.accdb;"
RS.Open CN
If RS.State = adStateOpen Then
  MsgBox "success"
Else
  MsgBox "failure"
End If
Dim k As Double, i As Integer, j As Integer
 RS.Execute "select Aijk from AU型3叶桨Aijk回归系数 where n=1"     ’运行时就这一句有问题
k = RS.RecordCount      '我想把查询到的数据赋值给新变量K，可就是这句我知道通过什么方法，代码来实现
Print k
Set RS = Nothing
End Sub
请帮帮忙吧

Answer 4

RS.RecordCount只是查询符合条件的条数。

Answer 5

返回记录集后:dim tmp
while not rs.eof
    tmp=format(rs!Aijk)   '这个就是你要的吧
    debug.print tmp
    rs.movenext
wend

Answer 6

8楼的code我用了，不错，我加了输出语句后，可以输出数据。呵呵，不过我不明白里面的变量tmp怎么没有数据类型，还有后面的format(rs!Aijk)是什么意思，我在其他地方都没有找到。

Answer 7

format(rs!Aijk)是定义格式，它的正确格式是format(rs!Aijk,"定义格式"),例如:format(rs!Aijk,"0.00").

Answer 8

Dim RS As New ADODB.Connection
RS.open "select Aijk from AU型3叶桨Aijk回归系数 where n=1"  
里面的这一句SQL语句怎么改啊，他怎么会说数据类型不一致，出问题啊

Answer 9

想问下，VB里有指数函数吗，是X的Y次方的函数。不要exp(n)