Public Function GetTeachers() As String
Try
Rs.Open("SELECT * FROM teachers", Conn)
Dim retval As String
Do Until Rs.EOF
With Rs
retval &= Rs.fields(0).value.ToString & "," & Rs.fields(1).value.ToString & "," & Rs.fields(2).value.ToString & vbCrLf
Rs.MoveNext()
End With
Loop
Rs.Close()
GetTeachers = retval
Catch ex As Exception
Return "ERROR: " & ex.Message
End Try
End Function
Ich hoffe ihr könnt mir irgendwie helfen!
mfg stegi

Hilfe
Neues Thema
Antworten

Nach oben


