Как открыть DataReport с Аксесовской базой не через ODBC или как прописать её програмно???

10.09.2007, 09:17. **Показов** 1376. **Ответов** 5

Author24 — интернет-сервис помощи студентам

Как открыть DataReport с Аксесовской базой, подключонной не через ODBC, а на прямую (через путь в каталоге) или как прописать базу в ODBC програмно, подключится к ней, а после себя удалить из ODBC...

@Леон · 10.09.2007, 12:10

Нужный тебе Connection String будет выглядеть примерно так:

Visual Basic

1 2	MyMdbFileWithFoolPath = "c:\data\something.mdb" ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyMdbFileWithFoolPath

10.09.2007, 22:00

этото я знаю, я незнаю, как её дальше к DataReport'у подключить...?

@Леон · 10.09.2007, 22:20

Удобнее всего создать Recordset и передать его в DataReport. Вот так:

Visual Basic

' Создание Recordset-а
Dim rs as ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open strSQL, cn
 
' Передача в DataReport
Set rpt.DataSource = rs

При этом в дизайне для полей устанавливается только DataField.

При желании работать в дизайне, можно пользоваться DataEnvironment, используя всё тот-же Connection String. Немного менее гибко, но и менее трудоёмко.

10.09.2007, 23:44

что значит 'strSQL' и 'cn' в строке ->
rs.Open strSQL, cn ???

@Леон · 11.09.2007, 11:16

strSQL - Твой SQL запрос. Например 'select * from mytable'.
cn - Объект Connection. Предварительно Connection естественно надо создать и открыть:

Visual Basic

Dim cn as ADODB.Connection
Set cn = New ADODB.Connection
MyMdbFileWithFoolPath = "c:\data\something.mdb"
ConnString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & MyMdbFileWithFoolPath
 
cn.Open ConnString

Mac
	10.09.2007, 22:00	3
	этото я знаю, я незнаю, как её дальше к DataReport'у подключить...?

Mac
	10.09.2007, 23:44	5
	что значит 'strSQL' и 'cn' в строке -> rs.Open strSQL, cn ???

	11.09.2007, 11:16