vb6数据库链接问题求助

[suncoupe]

使用VB6。在工作中遇到了两个问题：
1.链接数据库（MS ACCESS97 格式）时。在第一行显示数据一，第二行显示数据一的第二条记录，如何做？加入了 "数据库名.Recordset.MoveNext"为什么不管用?为什么两行显示的还是同一条记录?
2.VB中好象没有表格控件.请问现在有类似的控件吗？或者采用其他方法解决也可以。这样程序编译完成后,显示的是一张具有表格线的表格.且表格随窗口的缩放而缩放。

请高手指教.另外,请问将一容量较大的ACCESS数据库文件,编译成EXE文件,用来逐页显示表格,用什么语言结合什么软件最好?(不要告诉我用DIRECTOR或ASP.)

电话:531-8918998.谢谢。

[cqq_chen]

问的问题都不是很看的懂。
如果用DAO：
'用DAO3.5
DIM DB AS DATABASE
dim sc as recordset
set db=opendatabase("a.mdb")
set sc=db.openrecordset("a")
if sc.recordcount<>0 then
sc.movefirst
do while not sc.eof
debug.print sc.fields(0)
sc.movenext
loop
end f
VB中有表格控件的，只是不很好用。如果想用更好的东东，可以上网找找。

[smile_man]

datagrid或ms(h)flexgrid不是表格控件吗?

[smile_man]

datagrid或ms(h)flexgrid不是表格控件吗？

用ado
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

conn.Open "DSN=detervalue;uid=sa;pwd=;database=detervalue"
Set cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * from detvalue order by id, meterno"
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
rs.MoveFirst
Do While Not rs.EOF
Set DataGrid1.DataSource = rs
rs.MoveNext
Loop

[visking]

既然看到了.那我也有点问题问问.
如果我的数据库在一台机子上,运行的程序在另一台机子上.我没有用sql sever之类的服务器程序.数据库是access97的.我把数据库设置成了系统dsn,我该用什么办法来访问我的数据库呢?

[001chb]

用ado 控件& datagrid控件
设置好ado和数据库的连接
set datagrid.datasource=adodc

re:visking(金)　
用ado连接时生成的连接字符串

[visking]

我不想用控件,我用ado直接写代码的.
如果这样我该怎么写呢?

[visking]

我要得就是 那个省略号里的东西

[001chb]

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名称"

[QQRN]

ooo

[dave75]

?

[001chb]

dim conn as connection
dim rs as recordset
set conn=new connection
set rs=new recordset
conn.connectionstring=" …………" '连接字符串拷贝一个ado控件即可
conn.open
rs.activeconnection=conn
rs.open " …………"
set datagrid.datasource=rs

[visking]

我试试！

[shawls]

vb+sql

[visking]