ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / SQL
25 сообщений из 34, страница 1 из 2
  1  все
SQL
    #32172907
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
Здравствуйте уважаемы программисты. Кто нибудь конектился к базе Microsoft SQL 7.0 из FoxPro через мастер или же путем программного кода...
Если кто знает напишите что нибудь..


Заранее спасиба
...
Рейтинг: 0 / 0
30.05.2003, 14:29
| Ответить | Цитировать | Написать  
SQL
    #32173041
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
Visual FoxPro > Product Documentation: Creating Client/Server Solutions
...
Рейтинг: 0 / 0
30.05.2003, 16:14
| Ответить | Цитировать | Написать  
SQL
    #32173956
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
Я использую так
1 метод
STORE SQLCONNECT('44sdv', 'sa') TO asd

2 метод
LOCAL inRetVal, loConnection, lcConnectString, loCommand, loParameter1, loParameter2
inRetVal=0
loConnection=CREATEOBJECT("ADODB.Connection")
loConnection.CursorLocation=2
lcConnectString = "Provider=SQLOLEDB.1;" + ;
"Data Source=44sdv;User ID=sa;Password= "
loCommand.Open(lcConnectString)
loCommand=CREATEOBJECT("ADODB.Command")
loCommand.CommandType=4
loCommand.CommandText = "sp_GetNextKey"
loCommand.ActiveConnection=loConnection


но не прет постоянно каке то ошибки...
Кто знает?
...
Рейтинг: 0 / 0
02.06.2003, 12:50
| Ответить | Цитировать | Написать  
SQL
    #32188175
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
не ужели никто низнает как подцепится... программным путем.
ау.... помогите
...
Рейтинг: 0 / 0
21.06.2003, 12:50
| Ответить | Цитировать | Написать  
SQL
    #32188222
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Crip
Участник
RTFM SQLSTRINGCONNECT()
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
lcDSNLess= "driver = {SQL Server};server=<servername>;uid=<userid>;pwd=<password>"  
-or-
lcDSNLess= "DRIVER = {SQL Server};"  ; 
+  "SERVER=<servername>;"  ;
+  "UID=<userid>;"  ;
+  "PWD=<password>;"  ;
+  "DATABASE=PUBS;"  ;
+  "WSID=<machine name or userid>;"  ;
+  "APP=MicroX(R) Sample App" 
lnConnHandle=SQLSTRINGCONNECT(m.lcDSNLess)
...
Рейтинг: 0 / 0
21.06.2003, 13:23
| Ответить | Цитировать | Написать  
SQL
    #32203276
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
Подключил указал имя сервера, имя базы..
код вставил в процедуру кнопки.. при нажати происхоли открытие мастера подключения к базе... это так должно чтоли быть????
а как привязаться к таблице в SQL-е???
...
Рейтинг: 0 / 0
09.07.2003, 14:43
| Ответить | Цитировать | Написать  
SQL
    #32203362
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Crip
Участник
Код в студию
...
Рейтинг: 0 / 0
09.07.2003, 15:39
| Ответить | Цитировать | Написать  
SQL
    #32203858
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
Crip я использовал втой код!!!

PUBLIC lcDSNLess,lnConnHandle
lcDSNLess="DRIVER = {SQL Server};" ;
+ "SERVER=<44sdv>;" ;
+ "UID=<userid>;" ;
+ "PWD=<password>;" ;
+ "DATABASE=PLATBASE;" ;
+ "WSID=<44SDV>;" ;
+ "APP=MicroX(R) Sample App"
lnConnHandle=SQLSTRINGCONNECT(m.lcDSNLess)
...
Рейтинг: 0 / 0
10.07.2003, 06:14
| Ответить | Цитировать | Написать  
SQL
    #32204012
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Crip
Участник
Я так понимаю вы не совсем умеете пользоваться синтаксисом.
<SomeParameter> - обозначает передачу параметра. Поэтому символы <> нужно убрать :)
Правильный вариант:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
PUBLIC lcDSNLess,lnConnHandle 
lcDSNLess= "DRIVER = {SQL Server};"  ; 
+  "SERVER=44sdv;"  ; 
+  "UID=sa;"  ; 
+  "PWD=sapassword>;"  ; 
+  "DATABASE=PLATBASE;"  ; 
+  "WSID=44SDV;"  ; 
+  "APP=MicroX(R) Sample App"  
lnConnHandle=SQLSTRINGCONNECT(m.lcDSNLess)
...
Рейтинг: 0 / 0
10.07.2003, 10:17
| Ответить | Цитировать | Написать  
SQL
    #32204609
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
Какая разница как писать можна так писать <asd> можно и так asd (без скобок) это никакую роль не играет, я уже такие вещи программировал...

результат один и тоже
...
Рейтинг: 0 / 0
10.07.2003, 15:05
| Ответить | Цитировать | Написать  
SQL
    #32204645
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
Установи
Код: plaintext
=SQLSETPROP( 0 , "DispLogin" , 3 )

и посмотри что возвращает MESSAGE() и/или AERROR().
У меня строка примерно такая
Код: plaintext
hConn=SQLSTRINGCONNECT('driver=sql server;server=testserver;database=mydb;uid=sa;pwd=')
...
Рейтинг: 0 / 0
10.07.2003, 15:19
| Ответить | Цитировать | Написать  
SQL
    #32205083
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
как я понял SQLSETPROP используется для того чтобы установить размер пакета для текущей связи а для чего это нужно ? что за 0 и 3?
...
Рейтинг: 0 / 0
11.07.2003, 06:22
| Ответить | Цитировать | Написать  
SQL
    #32205086
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
Короче я глянул что возвращает MESSAGE и AERROR(), число 31 и что это означат?
...
Рейтинг: 0 / 0
11.07.2003, 06:36
| Ответить | Цитировать | Написать  
SQL
    #32205099
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
Короче получилось, аказываеться так просто!
Выглядит это следующим образом

PUBLIC pConn, pColum
pConn=SQLSTRINGCONNECT('driver=sql server;server=44sdv;database=platbase;uid=sa;pwd=')
SQLEXEC(pConn, 'SELECT * FROM codPL', 'MyCursor2')
BROWSE
...
Рейтинг: 0 / 0
11.07.2003, 08:04
| Ответить | Цитировать | Написать  
SQL
    #32205238
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
...
Рейтинг: 0 / 0
11.07.2003, 10:20
| Ответить | Цитировать | Написать  
SQL
    #32205246
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
2DЭN

>как я понял SQLSETPROP используется для того чтобы установить размер пакета для текущей связи а для чего это нужно ? что за 0 и 3?

Он много для чего используется в данному случае, 0 означает все подключения, а 3 устанавливает не вывовдить окно логина, а генерировать ошибку.

> Короче получилось

Вот и славно
...
Рейтинг: 0 / 0
11.07.2003, 10:23
| Ответить | Цитировать | Написать  
SQL
    #32207852
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
Да интересно а как же теперь мне выдать это все в Лист

PUBLIC pConn
pConn=SQLSTRINGCONNECT('driver=sql server;server=44sdv;database=platbase;uid=sa;pwd=')
=SQLPREPARE(pConn, 'SELECT systypes.xtype')
=SQLEXEC(pConn,'MyCursor')
ThisForm.list1.RowSource =('MyCursor')
ThisForm.list1.requery()


Для своей фокспрошной базы использую так, работает без проблем
SELECT table1.fio, table1.tel;
FROM table1;
into cursor zap
ThisForm.list1.RowSource = 'zap'
ThisForm.list1.requery()

Как передать данные с SQL7.0 в лист?
...
Рейтинг: 0 / 0
15.07.2003, 09:09
| Ответить | Цитировать | Написать  
SQL
    #32207881
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
А если просто
Код: plaintext
ThisForm.list1.RowSource ='MyCursor'
...
Рейтинг: 0 / 0
15.07.2003, 09:33
| Ответить | Цитировать | Написать  
SQL
    #32207934
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
Да повсякому пробовал, все равно прется .....
Как же обмануть ????
...
Рейтинг: 0 / 0
15.07.2003, 10:17
| Ответить | Цитировать | Написать  
SQL
    #32208424
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
Быть такого не может..
Попробуй
select * from MyCursor into cursor zap

ЗЫ у листа какой RowSoueceType?
...
Рейтинг: 0 / 0
15.07.2003, 14:46
| Ответить | Цитировать | Написать  
SQL
    #32208430
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Crip
Участник
Может дело в фильтре? Попробуй
Код: plaintext
1.
2.
SELECT table1.fio, table1.tel; 
FROM table1; 
into cursor zap nofilter
...
Рейтинг: 0 / 0
15.07.2003, 14:49
| Ответить | Цитировать | Написать  
SQL
    #32208494
DЭN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DЭN
Участник
Короче мужики! получилось.. нада был в указать в свостве листа RowSourceType=6-Fields
он показывает все поля в листе

мне теперь нужно вывести 2 (первое поле и последнее), а она лиса выводит мне первых два... запарился уже как зделать?

SQLPREPARE(pConn, 'SELECT pl2.koddok,pl2.kol','INTO CURSOR MyCursor')
SQLEXEC(pConn,'MyCursor')
...
Рейтинг: 0 / 0
15.07.2003, 15:18
| Ответить | Цитировать | Написать  
SQL
    #32208537
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
Ну и укажи в RecordSource список полей
Код: plaintext
.RecordSource='mycusor.field1,mycursor.fieldN'
...
Рейтинг: 0 / 0
15.07.2003, 15:39
| Ответить | Цитировать | Написать  
SQL
    #32208553
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Crip
Участник
ты наверное имел ввиду
.RowSource='mycusor.field1,fieldN' ?
...
Рейтинг: 0 / 0
15.07.2003, 15:44
| Ответить | Цитировать | Написать  
SQL
    #32208577
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
2Crip

Возможно, сто лет не использовал ListBox с fields
...
Рейтинг: 0 / 0
15.07.2003, 15:53
| Ответить | Цитировать | Написать  
25 сообщений из 34, страница 1 из 2
  1  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / SQL
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=32203858&tid=1598130]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 13ms
total:  156ms
созд. / загр.: 156ms
x
x
Закрыть


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