Automatikk
Grünschnabel
Hi,
ich finde leider den Fehler nicht denk aber er hängt mit der SQL-anweisung zusammen.
Als Fehlermelding wird "Für mindestens einen erforderlichen Parameter wurde kein Wert angegeben" ausgegeben bei °1.
Bin dankbar über jede Hilfe oder Links.
mfg
ich finde leider den Fehler nicht denk aber er hängt mit der SQL-anweisung zusammen.
Code:
Dim cmd As New OleDbCommand
Dim connection As New OleDbConnection
Dim reader As OleDbDataReader
reader = Nothing
Dim connString As String
Dim str1email As String = ""
Dim str2email As String = ""
Dim str1name As String = ""
Dim str2name As String = ""
Dim delchar As String = """"
Dim liI As Integer = 0
'Try
connString = _
"Data Source=" & _
"D:\Pfad\Pfad\kunden.mdb;" & _
"Provider=Microsoft.Jet.OLEDB.4.0;" ' & _
connection.ConnectionString = connString
connection.Open()
cmd.Connection = connection
cmd.CommandText = "SELECT J, C FROM Kundenlist"
°1
reader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Try
While (reader.Read)
If liI < 20 Then
str1email = reader.Item(0).ToString
str1email = str1email.Trim(delchar.ToCharArray())
str1name = reader.Item(1).ToString
str1name = str1name.Trim(delchar.ToCharArray())
If EmailVersenden(emailSender.Text, str1email, emailBetreff.Text, emailNachricht.Text) Then
Debug.Print(str1email & " erfolgreich versendet")
Else
Debug.Print("Fehler")
End If
liI += 1
End If
End While
Finally
reader.Close()
MsgBox("Ihr E-Mail wurde Erfolgreich zugestellt", MsgBoxStyle.Information, "E-MAIL Status")
End Try
Als Fehlermelding wird "Für mindestens einen erforderlichen Parameter wurde kein Wert angegeben" ausgegeben bei °1.
Bin dankbar über jede Hilfe oder Links.
mfg