请高人解答下这俩道题目,在线有等。

huangxw000 2008-03-04 05:02:37
...全文
106 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Alices 2008-03-05
天啊~~LZ你不说我还真不记得有FoxPro这东西了.
回复
cbm6666 2008-03-04
'******Microsoft ActiveX Data Objects 2.5 Library '要注册msado15.dll

Public conn As New ADODB.Connection '定义数据连接字符串
Public rs As New ADODB.Recordset '定义记录集
Dim db As String, schdata As String
Private Sub Form_Load()
db = "c:\bwtruck\bwdata"
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & db & "\bwscale.mdb"
conn.CursorLocation = adUseClient
conn.Open db '打开数据库连接
rs.Open "bwcust", conn, adOpenKeyset, adLockPessimistic ''打开记录集
'***************** 重点在下面这一行 ***********
rs.Sort = "custid"
End Sub

回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7493

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-04 05:02
社区公告
暂无公告