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.
Hier mal der Quellcode:
<%@ 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
Dim Cmd As New OleDbCommand
' Verbindung zur Datenbank herstellen
Try
conn.Open()
Dim CommandType As String
CommandType = "SELECT WO_NUM, Reqdate, Request FROM dbo.TASKS WHERE (WO_NUM = '100')"
Cmd.Connection = conn
cmd.ExecuteReader()
myDataReader = cmd.ExecuteReader()
Catch exc As InvalidOperationException
Reqdate.Text = myDataReader("Reqdate").ToString()
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>
danke im Voraus
gruß Basti
Hier mal der Quellcode:
<%@ 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
Dim Cmd As New OleDbCommand
' Verbindung zur Datenbank herstellen
Try
conn.Open()
Dim CommandType As String
CommandType = "SELECT WO_NUM, Reqdate, Request FROM dbo.TASKS WHERE (WO_NUM = '100')"
Cmd.Connection = conn
cmd.ExecuteReader()
myDataReader = cmd.ExecuteReader()
Catch exc As InvalidOperationException
Reqdate.Text = myDataReader("Reqdate").ToString()
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>
danke im Voraus
gruß Basti