me = “localhost” .DatabseName

Автор admin Среда, 27 января 2010 10:16

me = “localhost” .DatabseName ¦ “Northwind” .UserID ¦ “sa” .Password « “” End With ? Примечание. В случае использования защищенной базы данных Microsoft Access, Paradox или другой РОсовместимой базы данных можно прибегнуть к этому же методу, за исключением того, что поля .ServerName и .DatabaseName должны оставаться -пустыми. Теперь созданный объект типа Connectionlnfo можно применить, выполнив циклическую обработку всех таблиц, задействованных в отчете: Dim myTableLogonlnf or As New CrystalDecisions. Shared. TableLogonlnfо () Dim myDatabase « myReport.Database Dim myTables * myReport.Tables Dim myTable As CrystalDecisions.CrystalReports.Engine.Table For Each myTable In myTables myTableLogonlnfо myTable.LogOnlnfо myTableLogonlnfо.Connectionlnfo ™ myDBConnectionlnfо myTable.ApplyLogOnlnfо(myTableLogonlnfо) Next End Sub В данном случае мы выполняем циклическую обработку таблиц, используя объект таблицы. Тем не менее, циклическую обработку таблиц можно также организовать с использованием свойства Item и имени либо индекса таблицы. Например: myReport.Database.Tables.Item(1).ApplyLogOnlnfо() Выбор того ил