DataReport проблема / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / DataReport проблема

6 сообщений из 31, страница 2 из 2

все

DataReport проблема

#37383283

bubek

Гость

Shocker.ProИгорь Горбонос> БД в ADS.
Еще с утра хотел спросить что это значит?

Не знаю , но вряд ли в MDB, раз автор не может ее приложить

Привет!

БД в ADS = База Данных построена в Advantage Database Server 9.1 :)

Буду пробовать ваши варианты!

...

Рейтинг:

0 / 0

06.08.2011, 09:16

| Ответить | Цитировать | Написать

DataReport проблема

#37383391

bubek

Гость

Вопрос решен без DataEnvironment:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cm As String

With cn
    .Provider = "Advantage.OLEDB.1"
    .ConnectionString = App.Path & "\DBase\PADDOD_DB.ADD"
    .Open
End With

cm = "SELECT * FROM MAINBASE Where cardno = '" & Adodc1.Recordset("cardno") & "'"

With rs
    .ActiveConnection = cn
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .Open cm
End With

Всем спасибо!!!

...

Рейтинг:

0 / 0

06.08.2011, 12:13

| Ответить | Цитировать | Написать

DataReport проблема

#37383484

bubek

Гость

Ребята!

Помогите сделать тоже самое, но с SQL запросом а? То что я сделал, мне не нравится:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

If Trim(Me.ActiveControl) <> "" Then
    frmPrivate.Adodc1.Recordset.MoveFirst
For i =  1  To Adodc1.EOFAction
If InStr( 1 , frmPrivate.Adodc1.Recordset("cardno"), Trim(Me.ActiveControl), vbTextCompare) <>  0  Then
    t = MsgBox("Íàéäåíî ñõîäñòâî â Áàçå ñ äàííûì ïàöèåíòîì.", , "Óâåäîìëåíèå")
Exit For
End If
    frmPrivate.Adodc1.Recordset.MoveNext
Next i
End If

Спасибо!

...

Рейтинг:

0 / 0

06.08.2011, 14:37

| Ответить | Цитировать | Написать

DataReport проблема

#37383485

bubek

Гость

bubekРебята!

Помогите сделать тоже самое, но с SQL запросом а? То что я сделал, мне не нравится:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

If Trim(Me.ActiveControl) <> "" Then
    frmPrivate.Adodc1.Recordset.MoveFirst
For i =  1  To Adodc1.EOFAction
If InStr( 1 , frmPrivate.Adodc1.Recordset("cardno"), Trim(Me.ActiveControl), vbTextCompare) <>  0  Then
    t = MsgBox("Íàéäåíî ñõîäñòâî â Áàçå ñ äàííûì ïàöèåíòîì.", , "Óâåäîìëåíèå")
Exit For
End If
    frmPrivate.Adodc1.Recordset.MoveNext
Next i
End If

Спасибо!

Уууупсссс... не обращайте внимание...сообщение неверное!

...

Рейтинг:

0 / 0

06.08.2011, 14:39

| Ответить | Цитировать | Написать

DataReport проблема

#37383489

bubek

Гость

bubekbubekРебята!

Помогите сделать тоже самое, но с SQL запросом а? То что я сделал, мне не нравится:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

If Trim(Me.ActiveControl) <> "" Then
    frmPrivate.Adodc1.Recordset.MoveFirst
For i =  1  To Adodc1.EOFAction
If InStr( 1 , frmPrivate.Adodc1.Recordset("cardno"), Trim(Me.ActiveControl), vbTextCompare) <>  0  Then
    t = MsgBox("Íàéäåíî ñõîäñòâî â Áàçå ñ äàííûì ïàöèåíòîì.", , "Óâåäîìëåíèå")
Exit For
End If
    frmPrivate.Adodc1.Recordset.MoveNext
Next i
End If

Спасибо!

Уууупсссс... не обращайте внимание...сообщение неверное!

Вот верный код

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Private Function IsThePersonInDB()
If Trim(Me.ActiveControl) <> "" Then
    frmPrivate.Adodc1.Recordset.MoveFirst
For i =  1  To Adodc1.Recordset.RecordCount
If InStr( 1 , frmPrivate.Adodc1.Recordset("cardno"), Trim(Me.ActiveControl), vbTextCompare) <>  0  And i <> Adodc1.Recordset.RecordCount -  1  Then
    t = MsgBox("Íàéäåíî ñõîäñòâî â Áàçå ñ äàííûì ïàöèåíòîì.", , "Óâåäîìëåíèå")
Exit For
    End If
    frmPrivate.Adodc1.Recordset.MoveNext
Next i
    If frmPrivate.Adodc1.Recordset.AbsolutePosition <  0  Then Adodc1.Recordset.MoveLast
End If
End Function

...

Рейтинг:

0 / 0

06.08.2011, 14:47

| Ответить | Цитировать | Написать

DataReport проблема

#37383668

bubek

Гость

bubek,

В общем вопрос закрыт. SQL запрос сделал своё дело :)

...

Рейтинг:

0 / 0

06.08.2011, 20:58

| Ответить | Цитировать | Написать

6 сообщений из 31, страница 2 из 2

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / DataReport проблема

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=37383484&tid=2158512]:	0ms
get settings:	8ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	55ms
get topic data:	11ms
get forum data:	2ms
get page messages:	45ms
get tp. blocked users:	1ms
others:	349ms

total:	493ms