重写Newby问题！ [英] Rephrase of Newby Question!

问题描述

嗨：


这是我可以使用Verizon访问的唯一ASP新闻组，我想知道一个真正的基本信息。虽然我已经完成了HTML编码，但我完全不熟悉ASP了。


说我以下代码的目的是要求个人的HIRE号码，然后通过

查询，返回一周的时间数据。它不起作用，我只能假设我设置它的方式，或者我试图设置或引用

变量的方式错了。如果有人可以指出我的

错误以及我如何解决它，这将是一个无法估量的帮助！了解我如何获取来自查询的
数据以便我可以显示它也是有帮助的。


John Baker

代码：


<％@ Page Language =" VB" ％>

<％@ Register TagPrefix =" wmx" Namespace =" Microsoft.Matrix.Framework.Web.UI"

Assembly =" Microsoft.Matrix.Framework，Version = 0.6.0.0，Culture = neutral，

公钥= 6f763c9966660626" ％>

< script runat =" server">


函数MyQueryMethod（ByVal hireNumber As String）As System.Data.DataSet

Dim connectionString As String =" Provider = Microsoft.Jet.OLEDB.4.0; Ole DB Services = -4;

Data Source = C：\IPT\Test \Tim"& _

" eData.mdb"

Dim dbConnection As System.Data.IDbConnection = New

System.Data.OleDb.OleDbConnection（connectionString ）


Dim queryString As String =" SELECT

[TimeData]。[Thu]，

[TimeData]。[太阳]，

[TimeData]。[Fri]，

[TimeData]。[Wed]，

[TimeData]。[Sat] ，

[TimeData]。[WeekStart]，

[TimeData]。[AssocName]，

[TimeData]。[Task_Key]，

[TimeData]。[PO]，

[TimeData]。[Mon]，

[TimeData]。[Tue]，

[TimeData]。[HireNumber] FROM [TimeData]

WHERE（[TimeData]。[HireNumber] = HIREID）"

Dim dbCommand As System .Data.IDbCommand = New System.Data.OleDb.OleDbCommand

dbCommand.CommandText = queryString

dbCommand.Connection = dbConnection


Dim dbParam_hireNumber As System.Data.IDataParameter = New

System.Data.OleDb.OleDbParameter

dbParam_hireNumber.P arameterName =" HIREID"

dbParam_hireNumber.Value = hireNumber

dbParam_hireNumber.DbType = System.Data.DbType.String

dbCommand.Parameters。添加（dbParam_hireNumber）


Dim dataAdapter As System.Data.IDbDataAdapter = New

System.Data.OleDb.OleDbDataAdapter

dataAdapter .SelectCommand = dbCommand

Dim dataSet As System.Data.DataSet = New System.Data.DataSet

dataAdapter.Fill（dataSet）


返回数据集

结束功能


< / script>

< html>

< head>

< / head>

< body>

<！ - 在此处插入内容 - > ;

< p align =" center">

< img style =" WIDTH：417px;高度：179px高度= QUOT; 216" src =" IPT logo clear.jpg"

width =" 472" />

< / p>

< p align =" center">

< strong style =" FONT-SIZE：x-large">< font color =" red"> IPT Asociates Timesheet

录制

处理< / font>< / strong> ;

< / p>

< p align =" center">

< strong>< font color = "＃FF0000" size =" 6">< / font>< / strong>

< / p>

< p align =" center">

< / p>

< center>

< form action =" intro1.aspx" method =" post">

< h3>租用号码：

< input id =" HIREID"类型= QUOT;文本" />

< h3>密码：

< input id ="密码"类型= QUOT;文本" />

< / h3>

< / h3>

< / form>

< / center>

< / body>

< / html>

解决方案

John：

你得到一个例外吗？


我知道使用SqlClient你需要用@ I来指定参数

猜OledbClient是一样的，ala：


WHERE（[TimeData]。[HireNumber] = @HIREID）"

....

dbParam_hireNumber.ParameterName =" @ HIREID"


Karl


-

MY ASP.Net教程
http：//www.openmymind。 net /

" John Baker" <巴****** @ Verizon.net>在消息中写道

news：qp ******************************** @ 4ax.com ...

嗨：

这是我可以使用Verizon访问的唯一ASP新闻组，我想
想知道真正基本的信息。虽然我已经完成了
HTML编码，但我完全不熟悉ASP了。
说我以下代码是为了要求个人HIRE编号
然后将其传递给查询，返回本周的时间数据。它不起作用，
我只能假设我设置它的方式，或者我试图设置的方式或
引用变量HIREID，这是错误的。如果某人
可以指出我的错误以及如何解决它，这将是一个不可估量的帮助！了解如何从查询中获取
数据也是有帮助的，这样我就可以显示它。

John Baker
代码：
<％@ Page Language =" VB" ％>
<％@ Register TagPrefix =" wmx" Namespace =" Microsoft.Matrix.Framework.Web.UI"
Assembly =" Microsoft.Matrix.Framework，Version = 0.6.0.0，Culture = neutral，
PublicKeyToken = 6f763c9966660626" ％>
< script runat =" server">

函数MyQueryMethod（ByVal hireNumber As String）As System.Data.DataSet
Dim connectionString As String =" ;提供商= Microsoft.Jet.OLEDB.4.0; Ole
DB Services = -4;数据源= C：\ IPT \Test \Tim"& _
" eData.mdb"
Dim dbConnection As System.Data.IDbConnection = New
System.Data.OleDb.OleDbConnection（connectionString）

Dim queryString As String =" SELECT
[TimeData]。[Thu]，
[TimeData]。[Sun]，
[TimeData]。[Fri]，
[TimeData]。[星期三，
[TimeData]。[Sat]，
[TimeData]。[WeekStart]，
[TimeData]。[AssocName]，
[TimeData]。[Task_Key] ，[/] [时间数据]。[PO]，[时间数据]。[星期一]，[时间数据]。[星期二]，
[时间数据]。[HireNumber] FROM [ TimeData]
WHERE（[TimeData]。[HireNumber] = HIREID）"

Dim dbCommand As System.Data.IDbCommand = New
System.Data.OleDb.OleDbCommand dbCommand .CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_hireNumber As System.Data.IDataParameter = New
System.Data.OleDb.OleDbParameter
dbParam_hireNumber.ParameterName = " HIREID" <无线电通信/> dbParam_hireNumber.Value = hireNumber
dbParam_hireNumber.DbType = System.Data.DbType.String
dbCommand.Parameters.Add（dbParam_hireNumber）

Dim dataAdapter As System.Data.IDbDataAdapter = New
System.Data.OleDb.OleDbDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill（dataSet ）

返回数据集
结束功能

< / script>
< html>
< head>
< / head>
< body>
<！ - 在此处插入内容 - >
< p align =" center">
< img style =" WIDTH：417px;高度：179px高度= QUOT; 216" src =" IPT
logo clear.jpg"宽度= QUOT; 472" />
< / p>
< p align =" center">
< strong style =" FONT-SIZE：x-large"><字体颜色="红色"> IPT Asociates
时间表记录
处理< / font>< / strong>
< / p>
< p align =" ; center">
< strong>< font color ="＃ff0000" size =" 6">< / font>< / strong>
< / p>
< p align =" center">
< / p> ;
< center>
< form action =" intro1.aspx" method =" post">
< h3> Hire Number：
< input id =" HIREID"类型= QUOT;文本" />
< h3>密码：
< input id ="密码"类型= QUOT;文本" />
< / h3>
< / h3>
< / form>
< / center>
< / body>
< / html>

尝试修改一些代码如下：


''基本上将参数重命名为以@符号开头

Dim queryString As String =" SELECT [TimeData]。[Thu]，" &安培; _

" [TimeData]。[Sun]，[TimeData]。[Fri]，[TimeData]。[Wed]，" &安培; _

" [TimeData]。[Sat]，[TimeData]。[WeekStart]，[TimeData]。[AssocName]，" &安培; _

" [TimeData]。[Task_Key]，[TimeData]。[PO]，[TimeData]。[Mon]，" &安培; _

" [TimeData]。[Tue]，[TimeData]。[HireNumber]" &安培; _

" FROM [TimeData]" &安培; _

" WHERE（[TimeData]。[HireNumber] = @HIREID）"


Dim dbCommand As System.Data.IDbCommand = _

新的System.Data.OleDb.OleDbCommand（queryString，dbConnection）

dbCommand.Parameters.Add（" @ HIREID"，_

System.Data.OleDb.OleDbType.VarChar，256）.Value = hireNumber


如果向表单添加DataGrid，可以将其指向
要显示的数据集：

DataGrid1.DataSource = dataSet.Tables（0）

DataGrid1.DataBind（）


或者你可以使用For Each迭代行，并单独显示

等等。


BTW，你可能会尝试指向您在news.microsoft.com上的新闻阅读器获取

访问所有ms新闻组。


希望有所帮助，

迈克尔C＃


" John Baker" <巴****** @ Verizon.net>在消息中写道

news：qp ******************************** @ 4ax.com ...

嗨：

这是我可以使用Verizon访问的唯一ASP新闻组，我想知道真正的
基本知识一点信息。我是ASP的新手，虽然我已经完成了HTML编码。

说我以下代码是为了要求个人的HIRE编号
然后传递它到一个查询，它返回一周的时间数据。它不起作用，
我只能假设我设置它的方式，或者我试图设置或
引用变量的方式错了。如果有人能够指出我的错误以及如何解决它，那将是一个无法估量的帮助！了解我如何获取来自查询的数据以便我可以显示它也是有帮助的。

John Baker
代码：

<％@ Page Language =" VB" ％>
<％@ Register TagPrefix =" wmx" Namespace =" Microsoft.Matrix.Framework.Web.UI"
Assembly =" Microsoft.Matrix.Framework，Version = 0.6.0.0，Culture = neutral，
PublicKeyToken = 6f763c9966660626" ％>
< script runat =" server">

函数MyQueryMethod（ByVal hireNumber As String）As System.Data.DataSet
Dim connectionString As String =" ;提供商= Microsoft.Jet.OLEDB.4.0; Ole DB
服务= -4;
数据源= C：\ IPT \Test \Tim"& _
" eData.mdb"
Dim dbConnection As System.Data.IDbConnection = New
System.Data.OleDb.OleDbConnection（connectionString）

Dim queryString As String =" SELECT
[TimeData]。[Thu]，
[TimeData]。[Sun]，
[TimeData]。[Fri]，
[TimeData]。[星期三，
[TimeData]。[Sat]，
[TimeData]。[WeekStart]，
[TimeData]。[AssocName]，
[TimeData]。[Task_Key] ，[/] [时间数据]。[PO]，[时间数据]。[星期一]，[时间数据]。[星期二]，
[时间数据]。[HireNumber] FROM [ TimeData]
WHERE（[TimeData]。[HireNumber] = HIREID）"

Dim dbCommand As System.Data.IDbCommand = New
System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_hireNumber As System.Data.IDataParameter = New
System.Data.OleDb.OleDbParameter
dbParam_hireNumber.ParameterName =" HIREID"
dbParam_hireNumber.Value = hireNumber
dbParam_hireNumber.DbType = System.Data.DbType.String
dbCommand.Parameters.Add（dbParam_hireNumber）

Dim dataAdapter As System.Data.IDbDataAdapter = New
System.Data.OleDb.OleDbDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill（dataSet ）

返回数据集
结束功能

< / script>
< html>
< head>
< / head>
< body>
<！ - 在此处插入内容 - >
< p align =" center">
< img style =" WIDTH：417px;高度：179px高度= QUOT; 216" src =" IPT logo
clear.jpg"
width =" 472" />
< / p>
< p align =" center">
< strong style =" FONT-SIZE：x-large">< font color =" red"> IPT Asociates
时间表
录制
处理< / font>< / strong>
< / p>
< p align =" center">
< strong>< font color ="＃ff0000" size =" 6">< / font>< / strong>
< / p>
< p align =" center">
< / p> ;
< center>
< form action =" intro1.aspx" method =" post">
< h3> Hire Number：
< input id =" HIREID"类型= QUOT;文本" />
< h3>密码：
< input id ="密码"类型= QUOT;文本" />
< / h3>
< / h3>
< / form>
< / center>
< / body>
< / html>

先生们：


感谢您的建议。不幸的是根据你的建议，我收到了

错误，如下所示：

................... ............................... ................... ............................... ....

< asp：textbox>

分析器错误：'''INHIRENO''不是有效的标识符。

.................... .............................. .................... .............................. .....


我认为这是在HTML代码中，但不知道该怎么做。


代码现在说：


<％@ Page语言= QUOT; VB" ％>

< script runat =" server">


函数GetWeek（）As System.Data.DataSet

Dim connectionString As String =" Provider = Microsoft.Jet.OLEDB.4.0; Ole

DB Services = -4;数据源= C：\ IPT \Test \Tim"& _

" eData.mdb"

Dim dbConnection As System.Data.IDbConnection = New

System.Data.OleDb.OleDbConnection（connectionString ）


Dim queryString As String =" SELECT [TimeData]。[Thu]，[TimeData]。[Sun]，

[TimeData]。[周五，[时间数据]。[周三]，[T"& _

imeData。[Sat]，[TimeData]。[WeekStart]，[TimeData]。[AssocName]，

[TimeData]。[Task"& ; _

" Key]，[TimeData]。[PO]，[TimeData]。[Mon]，[TimeData]。[Tue]，

[TimeData]。 [HireNumbe"&安培; _

" r] FROM [TimeData] WHERE（[TimeData]。[HireNumber] = @INHIRENO）"

Dim dbCommand As System.Data.IDbCommand = New

System.Data.OleDb.OleDbCommand

dbCommand.CommandText = queryString

dbCommand.Connection = dbConnection


Dim dataAdapter As System.Data.IDbDataAdapter = New

System.Data.OleDb.OleDbDataAdapter

dataAdapter.SelectCommand = dbCommand

Dim dataSet As System.Data.DataSet = New System.Data.DataSet

dataAdapter.Fill（dataSet）


返回数据集

结束函数''在此处插入页面代码

Dim dbCommand As System.Data.IDbCommand = _

新System.Data.OleDb.OleDbCommand（queryString，dbConnection）


dbCommand.Parameters.Add（" @ HIREID"，_

System.Data.OleDb.OleDbType.VarChar，256）.Value = hireNumber


< / script>

< html>

< head>

& lt; / head>

< body>

< form runat =" server">

<！ - Insert这里的内容 - >

< p>

< / p>

有效

< hr />

< p>

< / p>

< p>

< ; / p>

< p>

< / p>

< p>

< ; / p>

< p>

< / p>

< p>

< ; / p>

< p>

< / p>

< form runat =" server" action =" controls3.aspx">

< font face =" Verdana">请输入您的雇佣＃：

< asp：textbox id = @INHIRENO runat =" server">< / asp：textbox>

< asp：button id =" Button1"的onclick = QUOT; EnterBtn_Click" runat =" server"

text =" Enter">< / asp：button>

< p>

< ; asp：标签ID ="消息" runat =" server">< / asp：Label>

< / p>

< / font>

< ; / form>

< / form>

< / body>

< / html

Hi:

This is the only ASP newsgroup I can access using Verizon, and I would like to know a real
basic piece of information. I am totall new to ASP, although I have done HTML coding.

Say I The following code is intended to ask for an individuals HIRE Number and then pass
it on to a query, which returns time data for the week. It doesn''t work, and I can only
assume that the way I have set it up, or the way I am attempting to set or refer to the
variable HIREID, is wrong. It would be an immeasurable help if someone could point out my
error and how I can fix it! It would alsoi be helpful to know how I grab the data that
comes from the query so I can display it.

John Baker
CODE:

<%@ Page Language="VB" %>
<%@ Register TagPrefix="wmx" Namespace="Microsoft.Matrix.Framework.Web.UI"
Assembly="Microsoft.Matrix.Framework, Version=0.6.0.0, Culture=neutral,
PublicKeyToken=6f763c9966660626" %>
<script runat="server">

Function MyQueryMethod(ByVal hireNumber As String) As System.Data.DataSet
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4;
Data Source=C:\IPT\Test\Tim"& _
"eData.mdb"
Dim dbConnection As System.Data.IDbConnection = New
System.Data.OleDb.OleDbConnection(connectionString )

Dim queryString As String = "SELECT
[TimeData].[Thu],
[TimeData].[Sun],
[TimeData].[Fri],
[TimeData].[Wed],
[TimeData].[Sat],
[TimeData].[WeekStart],
[TimeData].[AssocName],
[TimeData].[Task_Key],
[TimeData].[PO],
[TimeData].[Mon],
[TimeData].[Tue],
[TimeData].[HireNumber] FROM [TimeData]
WHERE ([TimeData].[HireNumber] = HIREID)"
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_hireNumber As System.Data.IDataParameter = New
System.Data.OleDb.OleDbParameter
dbParam_hireNumber.ParameterName = "HIREID"
dbParam_hireNumber.Value = hireNumber
dbParam_hireNumber.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_hireNumber)

Dim dataAdapter As System.Data.IDbDataAdapter = New
System.Data.OleDb.OleDbDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)

Return dataSet
End Function

</script>
<html>
<head>
</head>
<body>
<!-- Insert content here -->
<p align="center">
<img style="WIDTH: 417px; HEIGHT: 179px" height="216" src="IPT logo clear.jpg"
width="472" />
</p>
<p align="center">
<strong style="FONT-SIZE: x-large"><font color="red">IPT Asociates Timesheet
Recording
Process</font></strong>
</p>
<p align="center">
<strong><font color="#ff0000" size="6"></font></strong>
</p>
<p align="center">
</p>
<center>
<form action="intro1.aspx" method="post">
<h3>Hire Number :
<input id="HIREID" type="text" />
<h3>Password :
<input id="Password" type="text" />
</h3>
</h3>
</form>
</center>
</body>
</html>

解决方案

John:
Do you get an exception?

I know using the SqlClient you need to specify parameters with an @ I would
guess OledbClient is the same, ala:

WHERE ([TimeData].[HireNumber] = @HIREID)"
....
dbParam_hireNumber.ParameterName = "@HIREID"

Karl

--
MY ASP.Net tutorials
http://www.openmymind.net/
"John Baker" <Ba******@Verizon.net> wrote in message
news:qp********************************@4ax.com...

Hi:

This is the only ASP newsgroup I can access using Verizon, and I would like to know a real basic piece of information. I am totall new to ASP, although I have done HTML coding.
Say I The following code is intended to ask for an individuals HIRE Number and then pass it on to a query, which returns time data for the week. It doesn''t work, and I can only assume that the way I have set it up, or the way I am attempting to set or refer to the variable HIREID, is wrong. It would be an immeasurable help if someone could point out my error and how I can fix it! It would alsoi be helpful to know how I grab the data that comes from the query so I can display it.

John Baker
CODE:

<%@ Page Language="VB" %>
<%@ Register TagPrefix="wmx" Namespace="Microsoft.Matrix.Framework.Web.UI"
Assembly="Microsoft.Matrix.Framework, Version=0.6.0.0, Culture=neutral,
PublicKeyToken=6f763c9966660626" %>
<script runat="server">

Function MyQueryMethod(ByVal hireNumber As String) As System.Data.DataSet
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\IPT\Test\Tim"& _
"eData.mdb"
Dim dbConnection As System.Data.IDbConnection = New
System.Data.OleDb.OleDbConnection(connectionString )

Dim queryString As String = "SELECT
[TimeData].[Thu],
[TimeData].[Sun],
[TimeData].[Fri],
[TimeData].[Wed],
[TimeData].[Sat],
[TimeData].[WeekStart],
[TimeData].[AssocName],
[TimeData].[Task_Key],
[TimeData].[PO],
[TimeData].[Mon],
[TimeData].[Tue],
[TimeData].[HireNumber] FROM [TimeData]
WHERE ([TimeData].[HireNumber] = HIREID)"
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_hireNumber As System.Data.IDataParameter = New
System.Data.OleDb.OleDbParameter
dbParam_hireNumber.ParameterName = "HIREID"
dbParam_hireNumber.Value = hireNumber
dbParam_hireNumber.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_hireNumber)

Dim dataAdapter As System.Data.IDbDataAdapter = New
System.Data.OleDb.OleDbDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)

Return dataSet
End Function

</script>
<html>
<head>
</head>
<body>
<!-- Insert content here -->
<p align="center">
<img style="WIDTH: 417px; HEIGHT: 179px" height="216" src="IPT logo clear.jpg" width="472" />
</p>
<p align="center">
<strong style="FONT-SIZE: x-large"><font color="red">IPT Asociates Timesheet Recording
Process</font></strong>
</p>
<p align="center">
<strong><font color="#ff0000" size="6"></font></strong>
</p>
<p align="center">
</p>
<center>
<form action="intro1.aspx" method="post">
<h3>Hire Number :
<input id="HIREID" type="text" />
<h3>Password :
<input id="Password" type="text" />
</h3>
</h3>
</form>
</center>
</body>
</html>

Try modifying some of your code like this:

'' Basically rename your parameters to start with the @ sign
Dim queryString As String = "SELECT [TimeData].[Thu], " & _
" [TimeData].[Sun], [TimeData].[Fri], [TimeData].[Wed], " & _
" [TimeData].[Sat], [TimeData].[WeekStart], [TimeData].[AssocName], " & _
" [TimeData].[Task_Key], [TimeData].[PO], [TimeData].[Mon], " & _
" [TimeData].[Tue], [TimeData].[HireNumber] " & _
"FROM [TimeData] " & _
"WHERE ([TimeData].[HireNumber] = @HIREID)"

Dim dbCommand As System.Data.IDbCommand = _
New System.Data.OleDb.OleDbCommand(queryString, dbConnection)

dbCommand.Parameters.Add("@HIREID", _
System.Data.OleDb.OleDbType.VarChar, 256).Value = hireNumber

If you add a DataGrid to your form, you can point it at the table in your
DataSet to display:

DataGrid1.DataSource = dataSet.Tables(0)
DataGrid1.DataBind()

Alternatively you can iterate the rows using For Each, and display them
individually, etc.

BTW, you might try pointing your newsreader at news.microsoft.com to get
access to all the ms newsgroups.

Hope that helps,
Michael C#

"John Baker" <Ba******@Verizon.net> wrote in message
news:qp********************************@4ax.com...

Hi:

This is the only ASP newsgroup I can access using Verizon, and I would
like to know a real
basic piece of information. I am totall new to ASP, although I have done
HTML coding.

Say I The following code is intended to ask for an individuals HIRE Number
and then pass
it on to a query, which returns time data for the week. It doesn''t work,
and I can only
assume that the way I have set it up, or the way I am attempting to set or
refer to the
variable HIREID, is wrong. It would be an immeasurable help if someone
could point out my
error and how I can fix it! It would alsoi be helpful to know how I grab
the data that
comes from the query so I can display it.

John Baker
CODE:

<%@ Page Language="VB" %>
<%@ Register TagPrefix="wmx" Namespace="Microsoft.Matrix.Framework.Web.UI"
Assembly="Microsoft.Matrix.Framework, Version=0.6.0.0, Culture=neutral,
PublicKeyToken=6f763c9966660626" %>
<script runat="server">

Function MyQueryMethod(ByVal hireNumber As String) As System.Data.DataSet
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB
Services=-4;
Data Source=C:\IPT\Test\Tim"& _
"eData.mdb"
Dim dbConnection As System.Data.IDbConnection = New
System.Data.OleDb.OleDbConnection(connectionString )

Dim queryString As String = "SELECT
[TimeData].[Thu],
[TimeData].[Sun],
[TimeData].[Fri],
[TimeData].[Wed],
[TimeData].[Sat],
[TimeData].[WeekStart],
[TimeData].[AssocName],
[TimeData].[Task_Key],
[TimeData].[PO],
[TimeData].[Mon],
[TimeData].[Tue],
[TimeData].[HireNumber] FROM [TimeData]
WHERE ([TimeData].[HireNumber] = HIREID)"
Dim dbCommand As System.Data.IDbCommand = New
System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_hireNumber As System.Data.IDataParameter = New
System.Data.OleDb.OleDbParameter
dbParam_hireNumber.ParameterName = "HIREID"
dbParam_hireNumber.Value = hireNumber
dbParam_hireNumber.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_hireNumber)

Dim dataAdapter As System.Data.IDbDataAdapter = New
System.Data.OleDb.OleDbDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)

Return dataSet
End Function

</script>
<html>
<head>
</head>
<body>
<!-- Insert content here -->
<p align="center">
<img style="WIDTH: 417px; HEIGHT: 179px" height="216" src="IPT logo
clear.jpg"
width="472" />
</p>
<p align="center">
<strong style="FONT-SIZE: x-large"><font color="red">IPT Asociates
Timesheet
Recording
Process</font></strong>
</p>
<p align="center">
<strong><font color="#ff0000" size="6"></font></strong>
</p>
<p align="center">
</p>
<center>
<form action="intro1.aspx" method="post">
<h3>Hire Number :
<input id="HIREID" type="text" />
<h3>Password :
<input id="Password" type="text" />
</h3>
</h3>
</form>
</center>
</body>
</html>

Gentlemen:

Thank you for your suggestions. Unfortunately following your suggestion, I am getting an
error, as follows::
.................................................. .................................................. ....
<asp:textbox>
Parser Error: ''@INHIRENO'' is not a valid identifier.
.................................................. .................................................. .....

I assume that this is in the HTML code, but dont know what to do about it.

The code now says:

<%@ Page Language="VB" %>
<script runat="server">

Function GetWeek() As System.Data.DataSet
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole
DB Services=-4; Data Source=C:\IPT\Test\Tim"& _
"eData.mdb"
Dim dbConnection As System.Data.IDbConnection = New
System.Data.OleDb.OleDbConnection(connectionString )

Dim queryString As String = "SELECT [TimeData].[Thu], [TimeData].[Sun],
[TimeData].[Fri], [TimeData].[Wed], [T"& _
"imeData].[Sat], [TimeData].[WeekStart], [TimeData].[AssocName],
[TimeData].[Task"& _
"Key], [TimeData].[PO], [TimeData].[Mon], [TimeData].[Tue],
[TimeData].[HireNumbe"& _
"r] FROM [TimeData] WHERE ([TimeData].[HireNumber] = @INHIRENO)"
Dim dbCommand As System.Data.IDbCommand = New
System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dataAdapter As System.Data.IDbDataAdapter = New
System.Data.OleDb.OleDbDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)

Return dataSet
End Function'' Insert page code here
Dim dbCommand As System.Data.IDbCommand = _
New System.Data.OleDb.OleDbCommand(queryString, dbConnection)

dbCommand.Parameters.Add("@HIREID", _
System.Data.OleDb.OleDbType.VarChar, 256).Value = hireNumber

</script>
<html>
<head>
</head>
<body>
<form runat="server">
<!-- Insert content here -->
<p>
</p>
valid
<hr />
<p>
</p>
<p>
</p>
<p>
</p>
<p>
</p>
<p>
</p>
<p>
</p>
<p>
</p>
<form runat="server" action="controls3.aspx">
<font face="Verdana">Please enter your Hire #:
<asp:textbox id=@INHIRENO runat="server"></asp:textbox>
<asp:button id="Button1" onclick="EnterBtn_Click" runat="server"
text="Enter"></asp:button>
<p>
<asp:Label id="Message" runat="server"></asp:Label>
</p>
</font>
</form>
</form>
</body>
</html

这篇关于重写Newby问题！的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！