Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вроде так должно быть но ругаеться / 15 сообщений из 15, страница 1 из 1
26.08.2009, 10:04
    #36163151
Valihan
Valihan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
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)
что можеть быть
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 11:05
    #36163338
Core12
Core12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
А не удобней сделать так и с точки зрения наглядности и понятности тоже.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Const Connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\12;Extended Properties=dBase IV" ' ваши параметры соединения
Dim obj As Adodb.Connection
Dim objRs As Adodb.Recordset
Dim sSql As String 
 sSql = "SELECT * FROM OPLATA_KS"
 Set obj = New Adodb.Connection
  with obj 
    .ConnectionString = Connection
    .open
    .Execute (sSql)
    Set  objRs = .Execute(sSql)
  End With
' допустим на форме ест грид так вот результат выведем в него
Set datagrid1.Datasource = objRs
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 11:06
    #36163343
Core12
Core12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
И еще что за интересный Source (Source=C:\12) ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 11:18
    #36163373
Valihan
Valihan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
НУ вообщето это папка :) название

Спасибо большое
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 11:50
    #36163471
Valihan
Valihan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Const Connection = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=abc;User ID=Admin;Password=;Extended Properties=dBase IV")
Dim obj As Adodb.Connection
Dim objRs As Adodb.Recordset
Dim sSql As String

sSql = "SELECT a FROM OPLATA_KS"
 Set obj = New Adodb.Connection
  With obj
    .ConnectionString = Connection
    .Open
    .Execute (sSql)        <<=========================  Ругаеться блин надоело уже (Непредвиденая ошибка базы данных) что это можеть быть вашек блин не догоняю

    Set objRs = .Execute(sSql)
  End With
Set DataGrid1.DataSource = objRs
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 11:59
    #36163494
Core12
Core12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
А что если напрямую sql запрос пропустить
Код: plaintext
select * from OPLATA_KS
, то тоже ругнеться или все нормально сделает ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 12:01
    #36163498
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
Valihan,

чему равно obj.State после .Open ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 12:22
    #36163577
Valihan
Valihan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
big-dukeValihan,

чему равно obj.State после .Open ?


НЕ совсем понел что вы имеете ввиду
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 12:22
    #36163583
Valihan
Valihan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
Core12А что если напрямую sql запрос пропустить
Код: plaintext
select * from OPLATA_KS
, то тоже ругнеться или все нормально сделает ?


Ругаеться!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 12:50
    #36163716
Core12
Core12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
Ну значит что то в запросе не так может такой таблицы нет. Как вариант попробуйте ";" в конце запроса
Код: plaintext
obj.State
пишите в своем коде после .open и в отладчике смотрите или какой нить переменной присвойте значение типа
Код: plaintext
1.
Dim Src As Variant
Set Src = obj.State
и смотрите в отладчике чему равно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 13:08
    #36163798
Valihan
Valihan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
Core12Ну значит что то в запросе не так может такой таблицы нет. Как вариант попробуйте ";" в конце запроса
Код: plaintext
obj.State
пишите в своем коде после .open и в отладчике смотрите или какой нить переменной присвойте значение типа
Код: plaintext
1.
Dim Src As Variant
Set Src = obj.State
и смотрите в отладчике чему равно


Set Src = obj.State равно = 1 что бы это значило :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 13:12
    #36163814
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
Valihan,

это значит, что соединение у вас нормально открылось.
Уберите строчку .Execute (sSql) и оставьте Set objRs = .Execute(sSql).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 13:21
    #36163848
Core12
Core12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
то что у вас с запросом что то неладное ... а к базе он конектится
Код: plaintext
SELECT * FROM OPLATA_KS;
Попробуйте такой запрос на прямую пропустить или такой
Код: plaintext
SELECT Field1,Field2 FROM OPLATA_KS; 'где Field1 и Field2 названия ваших полей
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 13:30
    #36163883
Valihan
Valihan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
Всем огромное спасибо!

Еще вопросик я же могу посчить сумму

вот таким способом SELECT sum(tg) as tg FROM OPLATA_KS

а как полученую сумму мне выташить открывать рекордсет ??

Подскажите
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2009, 13:55
    #36163960
Valihan
Valihan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вроде так должно быть но ругаеться
sSql = "SELECT sum(SUMM_DV) FROM OPLATA_KS"
Set obj = New ADODB.Connection
With obj
.ConnectionString = Connection
.Open
Src = obj.State
Set objRs = .Execute(sSql)
List1.AddItem objRs.Fields(0) добляет сумму по столбсу SUMM_DV из записывает в ЛИСТ
End With


Все всем спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вроде так должно быть но ругаеться / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]