hier hast du den kompletten code:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim conSql as OleDbConnection=New OleDbConnection()
Dim Datenbank as String = Server.MapPath("db/password3.mdb")
Dim ds As DataSet = New DataSet()
Dim da As OleDbDataAdapter = New OleDbDataAdapter()
Dim sqlCommand as String
dim dr as DataRow
conSql.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Datenbank
Try
conSql.Open()
if conSql.State=ConnectionState.Open then
'Verbindung offen
sqlCommand="select * from eMail WHERE Eigentuemer_ID={guid {E036A3FB-2CEE-44AE-B19E-A0F11EC971C2}}"
'Set what we want to Select
da.SelectCommand = New OleDbCommand(sqlCommand, conSql)
'Fill the DataSet with the Data
da.Fill(ds)
if ds.Tables(0).Rows.Count >0 then
if ds.Tables(0).Rows(0)("Domain")<>"" then
dim temp as string=ds.Tables(0).Rows(0)("Domain")
if not Left(temp, 7) = "http://" then
temp= "http://" & temp
end if
lblDomain.text="<a href='" & temp & "'target='_blank'>" & temp & "</a>"
end if
if ds.Tables(0).Rows(0)("eMail_Adresse")<>"" then
dim temp as string=ds.Tables(0).Rows(0)("eMail_Adresse")
lbleMailAdresse.text="<a href='mailto:" & temp & "'>" & temp & "</a>"
end if
if ds.Tables(0).Rows(0)("Benutzer")<>"" then
lblBenutzer.text=ds.Tables(0).Rows(0)("Benutzer")
end if
if ds.Tables(0).Rows(0)("Key")<>"" then
lblKennwort.text=ds.Tables(0).Rows(0)("Key")
end if
if ds.Tables(0).Rows(0)("POP3")<>"" then
lblpop.text=ds.Tables(0).Rows(0)("POP3")
end if
if ds.Tables(0).Rows(0)("SMTP")<>"" then
lblsmtp.text=ds.Tables(0).Rows(0)("SMTP")
end if
if ds.Tables(0).Rows(0)("IMAP")<>"" then
lblimap.text=ds.Tables(0).Rows(0)("IMAP")
end if
if ds.Tables(0).Rows(0)("Erstellt")<>"" then
dim temp as DateTime = ds.Tables(0).Rows(0)("Erstellt")
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
lblerstellt.text=temp.ToString()
end if
if ds.Tables(0).Rows(0)("eigener_account")=false then
lblinhaber=ds.Tables(0).Rows(0)("Fremd_Account_Eigentuemer")
lblinhaberDesc.visible="true"
lblinhaber.visible="true"
end if
if ds.Tables(0).Rows(0)("anmerkung")<>"" then
lblanmerk.text=ds.Tables(0).Rows(0)("anmerkung")
end if
end if
else
'verbindung nicht offen
conSql.Close()
end if
if conSql.State=ConnectionState.Open then
conSql.Close()
end if
Catch ex As Exception
response.write(ex.Message)
end Try
End Sub