Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Datenbank dringend
Autor: JOMA
Datum: 24.06.03 14:34
Hmmm, dachte eigentlich, das das klar sei! Dim Cat As New ADOX.Catalog Dim VerbindungsString As String Dim DBConnection As New ADODB.Connection Dim s_test_datei As STRING Dim s_user_id As String Dim s_passwort As String Dim s_aktuelle_tabelle As String Dim s_aktuelles_feld As String 'Verbindungsstring muss angepaßt werden VerbindungsString = "PROVIDER=" + "Microsoft.Jet.OLEDB.4.0" + ";" + _ "DATA SOURCE=" + s_test_datei + ";" + _ "USER ID=" + s_user_id + ";PASSWORD=" + s_passwort + ";Jet OLEDB:Engine Type = 5" Set DBConnection = New ADODB.Connection With DBConnection .ConnectionString = VerbindungsString .Open If .State = adStateOpen Then Set Cat = New ADOX.Catalog Cat.ActiveConnection = DBConnection 's_aktuelle_tabelle und s_aktuelles_feld müssen angepaßt 'werden If field_exists(Cat, _ s_aktuelle_tabelle, _ s_aktuelles_feld) = False Then End IF Set Cat = Nothing End IF If Not DBConnection Is Nothing Then .Close End If Set DBConnection = Nothing End With 0

Datenbank dringend	227	sst_edwin	24.06.03 09:29
Re: Datenbank dringend	532	JOMA	24.06.03 09:38
Re: Datenbank dringend	98	sst_edwin	24.06.03 09:42
Systemtabellen SQL Server 2000	849	JOMA	24.06.03 10:11
Re: Systemtabellen SQL Server 2000	83	sst_edwin	24.06.03 10:26
Re: Systemtabellen SQL Server 2000	532	JOMA	24.06.03 10:35
Re: Datenbank dringend	87	sst_edwin	24.06.03 14:00
Re: Datenbank dringend	546	JOMA	24.06.03 14:34
Re: Datenbank dringend	84	sst_edwin	24.06.03 15:45
Re: Datenbank dringend	601	Reinski	24.06.03 18:28
Re: Datenbank dringend	529	JOMA	24.06.03 18:38
Re: Datenbank dringend	76	sst_edwin	25.06.03 08:12
Re: Datenbank dringend	526	JOMA	25.06.03 09:12

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen