Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: In VBA über ODBC auf ADABAS Datenbank zugreifen
Autor: Pepe20
Datum: 17.11.04 09:05
Also bin kein VB-Genie deshalb bitte um gnade ich weiß net irgendwas passt da noch nicht vielleicht könnt ihr mir ja weiterhelfen danke Private Sub eingabe_Click() Dim conn As ADODB.Connection Dim ConnectionString As String Dim rec As ADODB.Recordset Dim SQL As String Dim runnt, Zeit Dim i As Integer If uid.Text = "" Or pwid.Text = "" Or dsn.Text = "" Or dbname.Text = "" _ Or server.Text = "" Then MsgBox "Bitte Felder ausfüllen", _ vbExclamation, "ADABAS-Zugriff" Exit Sub End If For i = 1 To 1 hblau1.Visible = True DoEvents runnt = Timer Do Zeit = Timer - runnt Loop Until Zeit >= 0.5 Next For i = 1 To 1 dblau1.Visible = True DoEvents runnt = Timer Do Zeit = Timer - runnt Loop Until Zeit >= 0.5 Next For i = 1 To 1 hblau2.Visible = True DoEvents runnt = Timer Do Zeit = Timer - runnt Loop Until Zeit >= 0.5 Next For i = 1 To 1 dblau2.Visible = True DoEvents runnt = Timer Do Zeit = Timer - runnt Loop Until Zeit >= 0.5 Next For i = 1 To 1 hblau3.Visible = True DoEvents runnt = Timer Do Zeit = Timer - runnt Loop Until Zeit >= 0.5 Next For i = 1 To 1 dblau3.Visible = True DoEvents runnt = Timer Do Zeit = Timer - runnt Loop Until Zeit >= 0.5 Next For i = 1 To 1 hblau4.Visible = True DoEvents runnt = Timer Do Zeit = Timer - runnt Loop Until Zeit >= 0.5 Next For i = 1 To 1 dblau4.Visible = True DoEvents runnt = Timer Do Zeit = Timer - runnt Loop Until Zeit >= 0.5 Next For i = 1 To 1 hblau5.Visible = True DoEvents runnt = Timer Do Zeit = Timer - runnt Loop Until Zeit >= 0.5 Next For i = 1 To 1 dblau5.Visible = True DoEvents runnt = Timer Do Zeit = Timer - runnt Loop Until Zeit >= 0.5 Next ConnectionString = "Provider=MSDASQL.1" ConnectionString = ConnectionString & ";ADABAS D 12.01" ConnectionString = ConnectionString & ";Server=" & server.Text ConnectionString = ConnectionString & ";Database=" & dbname.Text ConnectionString = ConnectionString & ";DSN=" & dsn.Text ConnectionString = ConnectionString & ";UID=" & uid.Text ConnectionString = ConnectionString & ";PWD=" & pwid.Text Set conn = New ADODB.Connection conn.ConnectionString = ConnectionString conn.Open For i = 1 To 1 p1.Visible = True DoEvents runnt = Timer Do Zeit = Timer - runnt Loop Until Zeit >= 1 Next For i = 1 To 1 p2.Visible = True DoEvents runnt = Timer Do Zeit = Timer - runnt Loop Until Zeit >= 1 Next For i = 1 To 1 p3.Visible = True DoEvents runnt = Timer Do Zeit = Timer - runnt Loop Until Zeit >= 1 Next For i = 1 To 1 p4.Visible = True DoEvents runnt = Timer Do Zeit = Timer - runnt Loop Until Zeit >= 1 Next SQL = "Select " SQL = SQL & "start, " SQL = SQL & "end " SQL = SQL & "from PECOMUSER.VGPRODUCTIONRUN" Set rec = New ADODB.Recordset rec.Open SQL, conn i = 8 Do While Not rec.EOF If i < 38 Then Tabelle1.Cells(i, 1) = rec!start Tabelle1.Cells(i, 2) = rec!End rec.MoveNext i = i + 1 Else rec.MoveNext End If Loop conn.Close End Sub

In VBA über ODBC auf ADABAS Datenbank zugreifen	1.234	Pepe20	16.11.04 14:23
Re: In VBA über ODBC auf ADABAS Datenbank zugreifen	823	Snoopy	17.11.04 00:17
Re: In VBA über ODBC auf ADABAS Datenbank zugreifen	798	Pepe20	17.11.04 07:57
Re: In VBA über ODBC auf ADABAS Datenbank zugreifen	747	Snoopy	17.11.04 09:03
Re: In VBA über ODBC auf ADABAS Datenbank zugreifen	901	Pepe20	17.11.04 09:05

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