ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADO (Числовые перменные)
9 сообщений из 9, страница 1 из 1
ADO (Числовые перменные)
    #32626759
a1a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
a1a
Гость
Уважаемые помогите пожалуста!++++++++++++++++++++++++++++

С помощь ADO подключаюсь к базе данных foxpro следующти образом:

1: conn = CreateObject("ADODB.Connection")
2: conn.Open "Driver={Microsoft Visual FoxPro Driver};" & _
3: "SourceType=DBF;" & _
4: "SourceDB=c:\;" & _
5: "Exclusive=No"
6: strv2="aaa"
7: chis2=3
8: conn.Execute "Insert into Rruu (v2,v3) values ('" & strv2 & "',3)
9: conn.Close
10: Set conn = Nothing

где v2-character, v3 - numeric в dbf. Все работатет, но хочется

а на что надо заменить 3 в строке 8 чтобы она тоже записалась в таблицу.
В виде '" & chis2 & "' говорит : Type missmatch
...
Рейтинг: 0 / 0
29.07.2004, 11:43
| Ответить | Цитировать | Написать  
ADO (Числовые перменные)
    #32626863
Yanis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yanis
Участник
a1aа на что надо заменить 3 в строке 8 чтобы она тоже записалась в таблицу.
В виде '" & chis2 & "' говорит : Type missmatch
Тебе надо в запросе не обрамлять chis2 апострофами.
Код: plaintext
1.
conn.Execute "Insert into Rruu (v2,v3) values ('" & strv2 & "'," & chis2 & ")"
...
Рейтинг: 0 / 0
29.07.2004, 12:16
| Ответить | Цитировать | Написать  
ADO (Числовые перменные)
    #32628305
a1a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
a1a
Гость
Спасибо работает, но как быть с нецелочисленными переменными, а то если я присваиваю значение, напрмер 3.4 и т.д. Basic пишет [Microsoft][ODBC Visual FoxPro Driver]Syntax error
...
Рейтинг: 0 / 0
30.07.2004, 04:16
| Ответить | Цитировать | Написать  
ADO (Числовые перменные)
    #32628315
a1a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
a1a
Гость
И вообще дайте кто-нибудь ссылку на подобную информацию! Пожалуйста!
...
Рейтинг: 0 / 0
30.07.2004, 05:36
| Ответить | Цитировать | Написать  
ADO (Числовые перменные)
    #32628407
Фотография tpg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tpg
Участник
a1aСпасибо работает, но как быть с нецелочисленными переменными, а то если я присваиваю значение, напрмер 3.4 и т.д. Basic пишет [Microsoft][ODBC Visual FoxPro Driver]Syntax error
Чтобы не заморачиваться с представлением десятичной точки (запятой) можно поюзать объект ADO.Command. У него есть параметры, у которых, в свою очередь, есть возможность выбора типа данных провайдера. Смысл в том, чтобы передавать в качестве параметров значения того типа, который имеют параметры этого комманда.
Или попытаться через апишную ф-ию GetLocaleInfo узнать локальные настройки той машины, где лежит фоксовая база, или ещё как фоксовыми ф-иями узнать как в нем представляется эта фигня.
...
Рейтинг: 0 / 0
30.07.2004, 08:34
| Ответить | Цитировать | Написать  
ADO (Числовые перменные)
    #32636026
a1a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
a1a
Гость
Чего-то ничего не получается, кто может приведите практический пример или дайте ссылку, пожалуста!
...
Рейтинг: 0 / 0
05.08.2004, 04:34
| Ответить | Цитировать | Написать  
ADO (Числовые перменные)
    #32636554
Alex_2003
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex_2003
Участник
Попробуйте объявить переменную chis2 типа Double.
т.е.
Код: plaintext
Dim chis2 as Double
...
Рейтинг: 0 / 0
05.08.2004, 12:09
| Ответить | Цитировать | Написать  
ADO (Числовые перменные)
    #32637931
a1a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
a1a
Гость
Не-а, не получается что только не пробовал!
...
Рейтинг: 0 / 0
06.08.2004, 08:37
| Ответить | Цитировать | Написать  
ADO (Числовые перменные)
    #32637992
Фотография buser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
buser
Участник
Вот Вам типа для затравки... читайте help (MSDN msdn.microsoft.com)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
    Dim o_cmd As New ADODB.Command
    Dim o_cnn As New ADODB.Connection

    Set o_cnn = go_Connection
    
    Set o_cmd.ActiveConnection = o_cnn
    o_cmd.CommandText = "select * from dbo.agreemen where c_form = ? and nagr = ?"
    o_cmd.CommandType = adCmdText
    o_cmd.Parameters.Append o_cmd.CreateParameter("c_form", adVarWChar, adParamInput,  5 , "G")
    o_cmd.Parameters.Append o_cmd.CreateParameter("nagr", adInteger, adParamInput, ,  1 )
    o_cmd.Execute
    
    Set o_cmd = Nothing
    Set o_cnn = Nothing
...
Рейтинг: 0 / 0
06.08.2004, 09:35
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADO (Числовые перменные)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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