redking
副版主
帖子
2726
精华
0
无忧币 35193
积分 4390
阅读权限 140
来自 (保密)
|
发表于:2007-9-9 11:54
Private Sub Form_Load()
Set gCn = New ADODB.Connection
gCn.CursorLocation = adUseClient
gCn.Mode = adModeReadWrite
gCn.ConnectionString = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;dsn=dl;uid=dl;pwd=a;"
gCn.Open
Dim myfile
If Dir$("c:\1.xml") <> "" Then
Kill "c:\1.xml"
End If
Dim sqlstr As String
Dim rs As New ADODB.Recordset
sql = "select * from dl.bas_bm"
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = gCn
.CursorLocation = adUseServer
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open sql
.Save "c:\2.xml", adPersistXML
End With
End Sub
不是乱码洒
|
微软最有价值专家（MVP）申请 <2008-2009年度> |
|
| 诚征版主 | 版主堂 | 意见建议 | 大史记 | 论坛地图