powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите передать данные в форму
25 сообщений из 32, страница 1 из 2
Помогите передать данные в форму
    #32353710
molga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dim con As New ADODB.Connection
Dim com As New ADODB.Command
Dim re As New ADODB.Recordset
Dim l As Integer
con.ConnectionString = "Provider=SQLOLEDB;Data Source=SQLSRV;Initial Catalog=SALE;Integrated Security=SSPI;"

con.Open
re.Open "select idFlat,idObj from tFlat", con, adOpenDynamic, adLockOptimistic


Me.RecordSource = re

подскадите что не правильно
Как правильно передать данные в форму
пишет ошибку
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353739
Фотография # Darth Vader #
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Me.RecordSource = re

может Me.Recordset
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353788
molga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
так это тоже не работает в чем может быть проблема
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353815
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пишет ошибку
Телепяты, вперед!!!
Кто первый угадает что за ошибка?
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353821
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кстати, а на фига оно вообще так надо?
Кто тебе мешает это самое "select idFlat,idObj from tFlat" засунуть в RecordSource формы????
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353824
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
Dim com As New ADODB.Command 

А эта переменная почему-то нигде не используется. Может ее выкинуть? Или не надо?
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353831
molga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Type mismacth
и хоть тресни
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353836
molga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
просто не заметила
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353841
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тьфу ты блин, совсем меня запутали
Или
Код: plaintext
Me.RecordSource =  "select idFlat,idObj from tFlat" 

или
Код: plaintext
Set Me.Recordset = re
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353842
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Телепяты, вперед!

Cмотрим...
> Me.RecordSource = re
.RecordSource - строковое свойство, а кладешь ты туда почему-то recordset, да еще и ADO-шный...
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353844
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Опоздал :)
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353851
molga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а ну вот теперь понятно а то я ужо все комбинации перепробовала
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353860
molga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Object variable or With block variable not set


Теперь вот такая ошибка
заменила
me.recordset=re
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353879
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И еще раз - нафига оно тебе надо? Вся эта свистопляска с рекордсетами?
Вколоти ты эту чудо-строку ("select idFlat,idObj from tFlat") в рекордсорс формы, причем даже не в коде, а в режиме конструктора. Зачем себе жизнь усложняешь?

З.Ы. Set Me.Recordset = и т.д.
З.З.Ы. Зря описываешь переменные как As New что-то там
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353883
molga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
да так все время и делала тока вот хочется разобраться чтобы так работало
Чтобы проще было переписать на другой язык
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353891
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На какой-такой другой язык?
Чем тебе лишние объекты помогут?
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353915
molga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нет это все хорошо а если ХП нужно передать
я просто с самого легкого начала
после того как set поставила
теперь выдает следующее
"Указанный объект не может являться значением свойства Recordset"
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353942
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нет это все хорошо а если ХП нужно передать
Точно так же и передаешь. В рекордсорс пишешь что-нить типа "exec имясохраненки". Параметры для сохраненки - либо туда же, либо с помощью св-ва InputParameters

теперь выдает следующее
"Указанный объект не может являться значением свойства Recordset"
Должно работать. Еще где-нибудь какая-нибудь описка.
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353951
Фотография # Darth Vader #
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 molga

Посмотри внимательней свойства формы.
ЛП прав, зачем все усложняешь, чем проще тем лучше.
Запихни SQL запрос в свойства формы RecordSource и не мучайся. Тем более сам запрос "детский".

>Чтобы проще было переписать на другой язык.
молодец, далеко пойдешь!
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353963
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 molga
Перед открытием рекордсета
Код: plaintext
re.CursorLocation = adUseClient
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353967
molga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну хоть тресни не работает
пишет
Invalid use of property
ну что здесь может быть не верно

Dim con As ADODB.Connection
con.ConnectionString = "Provider=SQLOLEDB;Data Source=SQLSRV;Initial Catalog=SALE;Integrated Security=SSPI;"
con.Open
Set Me.RecordSource = "exec FreeObj 1,2,1,0"

всего то три строчки а не работает
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353975
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АААААААААААААААааааааааааааааааааааааааа
О Аллах не воспитывай мое терпение...

Вместо вот этого безобразия
Код: plaintext
1.
2.
3.
Dim con As ADODB.Connection 
con.ConnectionString =  "Provider=SQLOLEDB;Data Source=SQLSRV;Initial Catalog=SALE;Integrated Security=SSPI;"  
con.Open 
Set Me.RecordSource =  "exec FreeObj 1 , 2 , 1 , 0 " 

достаточно
Код: plaintext
Me.RecordSource =  "exec FreeObj 1 , 2 , 1 , 0 " 

(кстати без Set)
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353988
Фотография # Darth Vader #
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Похоже ЛП стрелял холостыми

>Set Me.RecordSource = "exec FreeObj 1,2,1,0"

мама родная, это что? Если RecordSource то никаких Set не должно!
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32353992
molga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Хорошо раз это начинает раздражать тогда объясните каким макаром
он найдет сторед процедуру без подключения к SQL SERVER
может я чего не понимаю
это же mdb
Объясните по шагам тогда


ИЗВИНИТЕ хочу разобраться
...
Рейтинг: 0 / 0
Помогите передать данные в форму
    #32354002
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АААААААААААААааааааааааааааа

molga наконец-то раскололась это же mdb
Пачему бы это первой строкой первого же поста не написать???
Тогда, разумеется, пляши с рекордсетами. Я думал это adp.
...
Рейтинг: 0 / 0
25 сообщений из 32, страница 1 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите передать данные в форму
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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