Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / SQL / 25 сообщений из 34, страница 1 из 2
  1  все
30.05.2003, 14:29
    #32172907
DЭN
DЭN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL
Здравствуйте уважаемы программисты. Кто нибудь конектился к базе Microsoft SQL 7.0 из FoxPro через мастер или же путем программного кода...
Если кто знает напишите что нибудь..


Заранее спасиба
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.05.2003, 16:14
    #32173041
NNN
NNN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL
Visual FoxPro > Product Documentation: Creating Client/Server Solutions
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2003, 12:50
    #32173956
DЭN
DЭN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL
Я использую так
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
| Ответить | Цитировать | Написать  
21.06.2003, 12:50
    #32188175
DЭN
DЭN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL
не ужели никто низнает как подцепится... программным путем.
ау.... помогите
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2003, 13:23
    #32188222
Crip
Crip
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL
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
| Ответить | Цитировать | Написать  
09.07.2003, 14:43
    #32203276
DЭN
DЭN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL
Подключил указал имя сервера, имя базы..
код вставил в процедуру кнопки.. при нажати происхоли открытие мастера подключения к базе... это так должно чтоли быть????
а как привязаться к таблице в SQL-е???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2003, 15:39
    #32203362
Crip
Crip
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL
Код в студию
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2003, 06:14
    #32203858
DЭN
DЭN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL
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, 10:17
    #32204012
Crip
Crip
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL
Я так понимаю вы не совсем умеете пользоваться синтаксисом.
<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, 15:05
    #32204609
DЭN
DЭN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL
Какая разница как писать можна так писать <asd> можно и так asd (без скобок) это никакую роль не играет, я уже такие вещи программировал...

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

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

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, 10:20
    #32205238
NNN
NNN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2003, 10:23
    #32205246
NNN
NNN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL
2DЭN

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

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

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

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

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

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

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

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

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


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