BastiFantasti86
Grünschnabel
Hallo zusammen! ich hab das Problem das ich auf Daten nich zugreifen kann bzw. an dem Quellcode etwas falsch ist?! Der Zugriff allgemein klappt an der Datenbank aber, bestimmte tabellen im browser ausgeben lassen(Request, Reqdate, Wo_Num) - funkioniert leider nicht. Ich bekomme nur einen Leeren Browser ausgegeben(ohne fehler) mit jedeglich 3 Textboxen die ich noch im Code erstellt habe. Wie gebe ich meine Tabelle aus von der DB und wo im Code? (vllt. Execute?). Ausgabe habe ich bisher nur bei Textbox "Reqdate" versucht.
Geschrieben wurde mit VB.2003...Framework 1.1
Hier mal der Quellcode:
Geschrieben wurde mit VB.2003...Framework 1.1
Hier mal der Quellcode:
HTML:
<%@ Page Language="VB" Debug="True" Strict="True" %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<HTML>
<HEAD>
<title>SqlConnection</title>
<script language="VB" runat="server">
Public Class Test
Inherits System.Web.UI.Page
Protected WithEvents WO_NUM As System.Web.UI.WebControls.TextBox
Protected WithEvents Reqdate As System.Web.UI.WebControls.TextBox
Protected WithEvents Request As System.Web.UI.WebControls.TextBox
Protected WithEvents ausgabe2 As System.Web.UI.WebControls.TextBox
Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
Sub Page_Load (ByVal Sender As Object, _
ByVal E As EventArgs)
' Verbindungszeichenfolge zusammensetzen
Dim connStr As String
connStr = "server=bla"
connStr += "database=pubs;"
connStr += "user id=trackit70;"
connStr += "password=bla1"
Dim WO_NUM As System.Web.UI.WebControls.TextBox
Dim Reqdate As System.Web.UI.WebControls.TextBox
Dim Request As System.Web.UI.WebControls.TextBox
Dim ausgabe As System.Web.UI.WebControls.TextBox 'vllt. als String?'
Dim conn As New OleDbConnection(connStr)
Dim myDataReader As OleDbDataReader
' Verbindung zur Datenbank herstellen
Try
conn.Open()
Dim CommandType As String
CommandType = "SELECT WO_NUM, Reqdate, Request FROM dbo.TASKS WHERE (WO_NUM = '100')"
Dim Cmd As New OleDbCommand(CommandType, conn)
Cmd.Connection = conn
cmd.ExecuteReader()
myDataReader = cmd.ExecuteReader()
While myDataReader.Read
Me.Reqdate.text = myDataReader("Reqdate").ToString()
End While
Finally
myDataReader.Close()
conn.Close()
End Try
ausgabe = Reqdate
End Sub
End Class
</script>
</HEAD>
<body>
<FORM id="Form1" method="post" runat="server">
<H3>Verbindung mit HACH-LANGE Datenbank BLNSQL001</H3>
<P><asp:TextBox id="WO_NUM" runat="server"></asp:TextBox></P>
<P><asp:TextBox id="Reqdate" runat="server"></asp:TextBox></P>
<P><asp:TextBox id="Request" runat="server"></asp:TextBox></P>
</FORM>
</body>
</HTML>
