📄 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 + -