Autor Thema: Tipp: VB6/CR9 Datenbankanmeldung an MS SQL Server  (Gelesen 2341 mal)

Welle

  • WSS-Mitarbeiter
  • Full Member
  • ***
  • Beiträge: 65
Windhoff Software Services GmbH
Michael Welle
----------------------------------------------------------------------------------------------------------------
- Visual Basic 6 / Crystal Reports 9 / RDC -
----------------------------------------------------------------------------------------------------------------
Datenbankanmeldung (nativ) an einem MS SQL Server mit Hilfe der ConnectionProperty Methode.

Option Explicit

Dim RptApp As New CRAXDRT.Application
Dim Report As CRAXDRT.Report

Private Sub Form_Load()
 
  Set Report = RptApp.OpenReport(App.Path & "/meinbericht.rpt")
 
  Dim CPProperty As CRAXDRT.ConnectionProperty
  Dim DBTable As CRAXDRT.DatabaseTable
 
  ' 1. Tabelle im Bericht
  Set DBTable = Report.Database.Tables(1)
 
  ' Datenquellen Eigenschaft zuweisen
  Set CPProperty = DBTable.ConnectionProperties("Data Source")
  CPProperty.Value = "ServerName"   ' Servername zuweisen
  MsgBox CPProperty.Value           ' Servername anzeigen
   
  ' User-ID Eigenschaft zuweisen
  Set CPProperty = DBTable.ConnectionProperties("User ID")
  CPProperty = "Welle"              ' Benutzername zuweisen
  MsgBox CPProperty.Value           ' Benutzername anzeigen
 
  ' Passwort Eigenschaft zuweisen
  Set CPProperty = DBTable.ConnectionProperties("Password")
  CPProperty.Value = "crystal"      ' Password zuweisen
 
  ' Datenbank Eigenschaft zuweisen
  Set CPProperty = DBTable.ConnectionProperties("Initial Catalog")
  MsgBox CPProperty.Value           ' alte Datenbank anzeigen (pubs)
  CPProperty.Value = "master"       ' neu Datenbank zuweisen
  MsgBox CPProperty.Value           ' neu Datenbank anzeigen
 
  ' Tabellen Eigenschaften zuweisen
  MsgBox DBTable.Location           ' alte Tabelle anzeigen (authors)
  DBTable.Location = "authors_neu"  ' neu Tablle zuweisen
  MsgBox DBTable.Location           ' neue Tabelle anzeigen

  CRViewer.ReportSource = Report
  CRViewer.ViewReport

End Sub
« Letzte Änderung: 20. Mai 2003, 11:41 von welle »
Michael Welle

Windhoff Software Services GmbH
Hofstr. 17
48712 Gescher

Tel.: 0 25 42 / 95 59 0
Fax: 0 25 42 / 95 59 20