Вроде так должно быть но ругаеться - VB
Формулировка задачи:
Dim CN As ADODB.Connection
Dim rs As ADODB.Recordset
Dim s As String
s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\12;Extended Properties=dBase IV"
Set CN = New ADODB.Connection
CN.Open s
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.Open "SELECT * FROM OPLATA_KS", CN - Рагуаеться что ( Непредвидиная ошибка драивера внешние базы данных (8961)
что можеть быть
Dim rs As ADODB.Recordset
Dim s As String
s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\12;Extended Properties=dBase IV"
Set CN = New ADODB.Connection
CN.Open s
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.Open "SELECT * FROM OPLATA_KS", CN - Рагуаеться что ( Непредвидиная ошибка драивера внешние базы данных (8961)
что можеть быть
Решение задачи: «Вроде так должно быть но ругаеться»
textual
Листинг программы
<font color="blue">SELECT</font> * FROM OPLATA_KS;
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д