Проблема удаления поля в DBF - фе - VB
Формулировка задачи:
Привет всем
Проблема при удалении поля
Ошибка: Операция не поддерживается для таблиц содержащих данные
Необходимо подключение именно через dBase
Как побороть ?
Private Sub Command1_Click()
Dim path As String
path = "C:\DBF"
Set conn = CreateObject("ADODB.Connection")
conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";User ID=Admin;Password=;Extended Properties=dBase IV")
conn.Execute "alter table temp drop column Rasx"
End Sub
Проблема при удалении поля
Ошибка: Операция не поддерживается для таблиц содержащих данные
Необходимо подключение именно через dBase
Как побороть ?
Private Sub Command1_Click()
Dim path As String
path = "C:\DBF"
Set conn = CreateObject("ADODB.Connection")
conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";User ID=Admin;Password=;Extended Properties=dBase IV")
conn.Execute "alter table temp drop column Rasx"
End Sub
Решение задачи: «Проблема удаления поля в DBF - фе»
textual
Листинг программы
path = <b><font color="green">"C:\temp"</font></b> <br><font color="blue">Set</font> conn = CreateObject(<b><font color="green">"ADODB.Connection"</font></b>) <br>conn.<font color="blue">Open</font> (<b><font color="green">"Provider=VFPOLEDB.<b><font color="darkblue">1</font></b>;Data Source="</font></b> & path & <b><font color="green">";Password="</font></b><b><font color="green">"""</font></b>;Collating Sequence=MACHINE<b><font color="green">") <br>conn.<font color="blue">Execute</font> "</font></b><font color="blue">alter</font> <font color="blue">table</font> a1 <font color="blue">drop</font> column s1"
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д