Прога делает SELECT,а на ДРУГИХ компах результат SEL пустой

[parrel]

Есть база оракл. подключен через Microsoft OLE DB Provider for Oracle.
Данные из таблицы выводятся в DataGrid через ADOdc.
Все работает замечательно. при переносе проги на другую машину DATAGRID оказывается пустым ((((
причем прога компилилась и далее обрабатывалась с помощью Package & Deployment Wizards, чтобы влезли все библиотеки.
Доступ к базе на другой машине имеется.
И еще один попутный вопрос. Можно ли библиотеки засунуть в исполняемый EXE чтобы без инсталлятора все работало?

[Antonariy]

Есть база оракл. подключен через Microsoft OLE DB Provider for Oracle.
Данные из таблицы выводятся в DataGrid через ADOdc.
Все работает замечательно. при переносе проги на другую машину DATAGRID оказывается пустым ((((

С высокой долей вероятности виноват ADODC. Советую от него избавиться.

Можно ли библиотеки засунуть в исполняемый EXE чтобы без инсталлятора все работало?

Теоретически да, даже есть специальный упаковщик, Fusion называется; практически... не слышал, чтобы из этого выходило что-то путное.

[parrel]

а как от него избавиться с минимальными потерями? )

[Antonariy]

Выбираешь его на форме, жмешь del
А если серьезно, то нужно его заменить примерно таким кодом:

Код: Выделить всё

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.ConnectionString = 'как ты там коннектишься к ораклу
cn.Open
rs.Open "Select * from ...", cn, adOpenStatic, adLockBatchOptimistic
Set rs.ActiveConnection = Nothing 'по желанию
Set DataGrid1.DataSource = rs

[parrel]

спасибо большое!

[parrel]

а как присвоить Label. значение полученное из базы вышеописанным способом?
при попытке установить
Set Label1.DataSource= rs
и Label1.DataField="нужный запрос" ничего не получается (((((
однако при ADO (т.е. первоначальное функционирование программы) все это работало и в Label подставлялось нужная цифра

[Antonariy]

В Label1.DataField нужно прописать название поля, а потом присвоить DataSource.

[parrel]

Когда я использую ADO в Label1.DataField я прописывал запрос Select
при этом такой же селект был в настройках AdoDC1.
а в Label1.DataSource стояло AdoDC1
Теперь все время ругается на unable to bind to field or Data Member "то что забито в Label1.DataField"

В Label1.DataField нужно прописать название поля, а потом присвоить DataSource. - это не проходит. Что я не так делаю?

[Antonariy]

Код: Выделить всё

rs.Open "Select SomeField from SomeTable", cn, adOpenStatic, adLockBatchOptimistic
Label1.DataField = "SomeField"
Set Label1.DataSource = rs

[parrel]

спасибо большое

[parrel]

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rr As New ADODB.Recordset

Private Sub Form_Load()
cn.CursorLocation = adUseClient
cn.ConnectionString = "строка подключения к ораклу"
cn.Open
rs.Open "select entity_id , name_reg from MRC_LEVEL_TAB order by name_reg", cn, adOpenStatic, adLockBatchOptimistic
rr.Open "select MAX(entity_id) from mrc_level_tab where entity_id like '00%'", cn, adOpenStatic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
Label2.DataField = "MAX(entity_id)"
Set Label2.DataSource = rr
Set rs.ActiveConnection = Nothing
End Sub

Вот мой код, заметил что БЕЗ Label программа запускается на других компах, а с Label выдает ошибку какого то класса. Очень непонятно , т.к. ничего нового ведь не добавлено. что это может быть?

[Konst_One]

"MAX(entity_id)" - так нельзя. здесь надо писать только наименование поля из резалтсета.

[Konst_One]

... select MAX(entity_id) AS MyField from...

Label2.DataField = "MyField"

[Antonariy]

Вот именно

Код: Выделить всё

rr.Open "select MAX(entity_id) as MaxEntity from ....
Label2.DataField = "MaxEntity "

[parrel]

а как это сделать? понимаю что ламерский вопрос...но если не трудно
и тогда почему у меня то эта прога работает?

[Antonariy]

Еще раз:
select MAX(entity_id) as MaxEntity from ....

[parrel]

это я понял.....у меня то на машине все работает!!!!!
но на других компах выдает ошибку класса. ((((
если закомментить строчки

Label2.DataField = "MAX(entity_id)"
Set Label2.DataSource = rr

то все работает и на других машинах

[parrel]

в сысле уже исправленную строчку конечно
Label2.DataField = "MaxEntity"