Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: VB und SQL
Autor: Spy
Datum: 20.09.02 12:26
Option Explicit 'Verweise hinzufügen '# ActiveX Data Objects 2.6 Library '# Microsoft Ado Ext. 2.X for DDL and Security Dim oCon As ADODB.Connection Dim oCatalog As ADOX.Catalog Private Sub Form_Load() Dim i As Long Dim sName As String Set oCon = New ADODB.Connection Set oCatalog = New ADOX.Catalog Let oCon.Provider = "Microsoft.Jet.OLEDB.4.0" Let oCon.ConnectionString = "User ID=Admin; Data Source='C: est.mdb';" ' Call oCon.Open Set oCatalog.ActiveConnection = oCon With oCatalog.Tables("Tabellenname") ' For i = 0 To .Columns.Count Let sName = .Columns(i).Name '<---- in der "Name" Eigenschaft steht der jeweilige Column Name Next i End With Set oCatalog = Nothing Call oCon.Close Set oCon = Nothing End Sub

VB und SQL	74	Christian	19.09.02 16:58
Re: VB und SQL	56	Spy	20.09.02 12:26

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