vb6数据库链接问题求助

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

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

电话:531-8918998.谢谢。
...全文
123 14 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
visking 2001-05-29
  • 打赏
  • 举报
回复
shawls 2001-05-28
  • 打赏
  • 举报
回复
vb+sql
visking 2001-05-28
  • 打赏
  • 举报
回复
我试试!
001chb 2001-05-27
  • 打赏
  • 举报
回复
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
dave75 2001-05-27
  • 打赏
  • 举报
回复
?
QQRN 2001-05-27
  • 打赏
  • 举报
回复
ooo
001chb 2001-05-27
  • 打赏
  • 举报
回复
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名称"
visking 2001-05-27
  • 打赏
  • 举报
回复
我要得就是 那个省略号里的东西
visking 2001-05-26
  • 打赏
  • 举报
回复
我不想用控件,我用ado直接写代码的.
如果这样我该怎么写呢?
001chb 2001-05-23
  • 打赏
  • 举报
回复
用ado 控件& datagrid控件
设置好ado和数据库的连接
set datagrid.datasource=adodc

re:visking(金) 
用ado连接时生成的连接字符串
visking 2001-05-23
  • 打赏
  • 举报
回复
既然看到了.那我也有点问题问问.
如果我的数据库在一台机子上,运行的程序在另一台机子上.我没有用sql sever之类的服务器程序.数据库是access97的.我把数据库设置成了系统dsn,我该用什么办法来访问我的数据库呢?
smile_man 2001-05-23
  • 打赏
  • 举报
回复
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
smile_man 2001-05-23
  • 打赏
  • 举报
回复

datagrid或ms(h)flexgrid不是表格控件吗?
cqq_chen 2001-05-23
  • 打赏
  • 举报
回复
问的问题都不是很看的懂。
如果用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中有表格控件的,只是不很好用。如果想用更好的东东,可以上网找找。

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧