|
|
|
VB + dbf
|
|||
|---|---|---|---|
|
#18+
Есть такой код в Access: Dim db As Database, rst As Recordset Set db = CurrentDb Dim strSql As String strSql = "SELECT *****;" Set rst = db.OpenRecordset(strSql) Как сделать то же самое в VB с таблицей dbf? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.02.2005, 12:56:53 |
|
||
|
VB + dbf
|
|||
|---|---|---|---|
|
#18+
Set cnn = CreateObject("ADODB.Connection") Set rst = CreateObject("ADODB.Recordset") cnn.Provider = "Microsoft.Jet.OLEDB.4.0" cnn.Properties("Extended Properties") = "dBase IV" cnn.Properties("Data Source") = App.Path & "\" cnn.Open rst.ActiveConnection = cnn rst.Source = "charSet.dbf" rst.Open rst.MoveFirst MsgBox rst(1) Все работает, а вот как сделать так, чтобы в качестве источника данных указать не таблицу, а запрос, основанный на ней? То есть, чтобы rst = SELECT ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.02.2005, 02:16:49 |
|
||
|
VB + dbf
|
|||
|---|---|---|---|
|
#18+
Set cnn = CreateObject("ADODB.Connection") Set rst = CreateObject("ADODB.Recordset") cnn.Provider = "Microsoft.Jet.OLEDB.4.0" cnn.Properties("Extended Properties") = "dBase IV" cnn.Properties("Data Source") = Имя базы cnn.Open rst.Open "SELECT ...", cn, тип рекорда, тип блокировки rst.MoveFirst MsgBox rst(1) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.02.2005, 09:30:00 |
|
||
|
VB + dbf
|
|||
|---|---|---|---|
|
#18+
Извините, как должно выглядеть "имя базы", "тип рекорда", "тип блокировки"?... На App.Path & "\charSet.dbf" ругается. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.02.2005, 14:34:45 |
|
||
|
VB + dbf
|
|||
|---|---|---|---|
|
#18+
Путь вроде правильный, надо проверить есть ли там вообще файл с данными а про тип рекордсета,то можно такой rs.Open strSQL, cn, adOpenKeySet, adLockReadOnly тип рекорда - динамический и только для чтения (лучше ХЕЛП посмотреть, там все описано) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.02.2005, 10:50:58 |
|
||
|
|
start [/forum/topic.php?fid=60&tid=2168225]: |
0ms |
get settings: |
5ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
15ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
33ms |
get tp. blocked users: |
1ms |
| others: | 201ms |
| total: | 276ms |
| 0 / 0 |
