?? 11862.html
字號:
<html>
<head>
<title>Re: 我要刪除 ADO 連線過的檔案，可是刪除不了．．．．．．</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 我要刪除 ADO 連線過的檔案，可是刪除不了．．．．．．</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:netp0@ms4.hinet.net">阿毛</a> on April 11, 1999 at 19:49:54:<p>
In Reply to: <a href="11841.html">我要刪除 ADO 連線過的檔案，可是刪除不了．．．．．．</a> posted by 小蓉 on April 10, 1999 at 17:01:11:<p>
'再試試看合不合用...(我先try過了)<br>Const FileName = "E:\superlib.mdb"<br>Dim adoconn As New ADODB.Connection<br>Dim adorst As New ADODB.Recordset<br>Dim adocmd As New ADODB.Command<br>Private Sub Form_Load()<p>'DataGrid, Adodc, CommandButton<br>'到ODBC控制臺去新增一個DSN(資料來源)<br>'選擇 Microsoft Access這個Driver<p>adoconn.ConnectionString = "DSN=test;UID=SA;PSW;"<br>adoconn.Open<br>adocmd.CommandText = "D01"<br>adocmd.ActiveConnection = adoconn<br>adorst.Open adocmd, , adOpenKeyset<p>Set Adodc1.Recordset = adorst<br>Set DataGrid1.DataSource = Adodc1<br>End Sub<p>Private Sub Command1_Click()<p>adorst.Close<br>adoconn.Close<p>If MsgBox("確定刪除" & FileName & " ??", vbYesNo) = vbYes Then<br> Kill FileName<br>End If<br>DoEvents<p>End Sub<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 11862-->
</ul><!--end: 11862-->
<br><hr size=7 width=75%><p>
</body></html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -