Kill (Dialog1.FileName) End If rsExport.Open Export_Str, conn, adOpenStatic, adLockOptimistic Else rsExport.Open Export_Str, conn, adOpenStatic, adLockOptimistic End If myError: 逆@风@者 Exit Sub End Sub
Private Sub Form_Load() 注释:联接数据库并打开记录集 conn.CursorLocation = adUseServer conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\NWind.mdb;" rsExport.Open "select *from Customers", conn, adOpenStatic, adLockOptimistic Set Grid1.DataSource = rsExport
注释:初始化对话筐 With Dialog1 .Filter = "FoxBase/FoxPro (*.DBF)|*.DBF|ACCESS 8.0(*.MDB)|*.MDB|Excel 8.0(*.XLS)|*.XLS|Paradox 4.x(*.DB)|*.DB" .DialogTitle = "导出文件为" .CancelError = False End With End Sub 本文章更多内容:<<上一页 - 1 - 2 |