7,785
社区成员
发帖
与我相关
我的任务
分享请高人解答下这俩道题目，在线有等。
...全文
请发表友善的回复…
发表回复
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
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
