1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

VB.net - In DIV Feld ausgeben?

Discussion in 'Programmieren' started by penDEJO, Aug 15, 2004.

Thread Status:
Not open for further replies.
  1. penDEJO

    penDEJO Byte

    Morgen zusammen,

    also ich versuche mich zZ an nem News script. Und zwar versuche ich daten aus meiner datenbank in eine tabelle auslesen zu lassen. leider weiß ich nich recht wie ich das machen soll. Also ich hab schon woanders ähnliche sachen gemacht, da allerdings mit vs.net 2002. da habe ich z.b den ganzen text in ein div feld auslesen lassen. jetzt habe ich hier vs.net 2003 und ich kann das nicht mehr machen :(

    Kann mir vielleicht jemand sagen wie ich das jetzt am besten mache?
    Also ich hab in einem Datensatz: id, autor, text und datum stehen. die will ich jetzt in eine tabelle einfügen, wie mach ich das?

    Grüße

    ps:

    Code:
            Dim sSql, sSpalte As String
            sSql = "SELECT * FROM TBL_news"
    
            'DB Verbindungsaufbau
            Dim CONNSTR As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + sDatabase + ";Persist Security Info=False"
            Dim MyConnection As New OleDb.OleDbConnection(CONNSTR)
            MyConnection.Open()
            Dim MyCommand As New OleDb.OleDbCommand(sSql, MyConnection)
            Dim MyReader As OleDb.OleDbDataReader = MyCommand.ExecuteReader()
    
            While MyReader.Read
                If Not (MyReader(sSpalte).GetType Is GetType(DBNull)) Then
                    txt_label.Text = MyReader("content")
                End If
            End While
    
    
            MyReader.Close()
            MyConnection.Close()
            MyCommand.Dispose()
            'DB Verbindungsaufbau Ende
        End Function
    
    ps: in ein datagrid kann ich auslesen!
     
  2. penDEJO

    penDEJO Byte

    So ich bin jetzt schon weiter nur leider wird beim ausrufen (z.b. test.aspx?id=1) die id nicht wirklich übergeben. Hier nmald er code:

    Code:
        Private Function ladeSeite(ByVal nId As Integer)
    
            Dim sSql, sSpalte As String
            sSql = "SELECT * FROM tbl_news WHERE id = 2"
    
            'DB Verbindungsaufbau
            Dim CONNSTR As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + sDatabase + ";Persist Security Info=False"
            Dim MyConnection As New OleDb.OleDbConnection(CONNSTR)
            MyConnection.Open()
            Dim MyCommand As New OleDb.OleDbCommand(sSql, MyConnection)
            Dim MyReader As OleDb.OleDbDataReader = MyCommand.ExecuteReader()
    
            sSpalte = "content"
            If MyReader.Read Then
                txt_label.Text = MyReader(sSpalte)
            End If
    
            MyReader.Close()
            MyConnection.Close()
            MyCommand.Dispose()
            'DB Verbindungsaufbau Ende
        End Function
    So wie es oben steht funzt es, doch wenn ich anstatt der "2" ne variable übergeben will, dann sagt der mir "Für mindestens einen erforderlichen Parameter wurde kein Wert angegeben." Also die Felder in der Datenbank sind nicht leer und die Variable ist auch richtig definiert. Habtr ihr noch ideen?
     
Thread Status:
Not open for further replies.

Share This Page