Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Klasse und .dll
Autor: Ronnys
Datum: 15.07.04 15:51
hi, ich möchte aus folgendem code eine Klasse erstellen aus der ich dann eine .dll erzeugen kann. ich weiß leider nur nicht wie. kann mir jemand helfen. danke. Private Sub Command1_Click() Text2 = "" Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Set conn = New ADODB.Connection With conn .Provider = "SQLOLEDB.1" .Properties("Data Source") = "localhost" .Properties("User ID") = "ronny" .Properties("Password") = "ronny" .CursorLocation = adUseClient .Open End With Set rs = New ADODB.Recordset With rs .ActiveConnection = conn .Source = "SELECT Datum FROM dbo.Blitz WHERE (PLZ Like '%" & Text1.Text & "%')" .Open If Check1 = 1 And .RecordCount > 0 Then For i = 0 To .RecordCount - 1 Text2.Text = Text2.Text & .Fields("Datum").Value & vbCrLf .MoveNext Next i ElseIf .RecordCount > 0 And Check1 = 0 Then Text2.Text = "In den letzten 7 Tagen war ein Gewitter." ElseIf .RecordCount = 0 And (Check1 = 1 Or Check1 = 0) Then Text2.Text = "In den letzten 7 Tagen war kein Gewitter." End If End With End Sub und wie greife ich dann auf die klasse zu wenn ich sie dann habe? wie macht man das z.b. hier: Private Sub Command1_Click() 'Klassenzugriff?!? End Sub Danke für eure hilfe.

Klasse und .dll	448	Ronnys	15.07.04 15:51
Re: Klasse und .dll	244	Dieter	15.07.04 17:41
Re: Klasse und .dll	267	Ronnys	15.07.04 19:39
Re: Klasse und .dll	233	Dieter	15.07.04 20:29

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