请各位帮忙看一下！

wateriness 2003-03-27 09:53:59

<%@Import Namespace=System.Data.ADO%>
<%@Import Namespace=System.Data%>
<html>
<body>
<Form Id="Form1" Runat="Server">
使用者账号: <Input type=text id="Text1" runat=server><br>
使用者密码: <Input type=text id="Text2" runat=server><br>
使用者姓名: <Input type=text id="Text3" runat=server><br>
使用者电话: <Input type=text id="Text4" runat=server><br>
使用者住址: <Input type=text id="Text5" runat=server><br>
E-Mail 信箱: <Input type=text id="Text6" runat=server><br>
<Button Id=Button1 Runat="Server" OnServerClick="Button1_Click">确定</Button>
</FORM>
<Span Id="Sp1" Runat="Server"/>
<Script Language="VB" Runat="Server">
Sub Button1_Click(Sender As Object, e As EventArgs)
Dim strConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=MyWeb.mdb"
Dim cmA As ADOCommand = New ADOCommand("",strConStr)
cmA.ActiveConnection.Open()
cmA.CommandText="Insert Into Members Values('" & _
Text1.Value & "','" & Text2.Value & "','" & _
Text3.Value & "','" & Text4.Value & "','" & _
Text5.Value & "','" & Text6.Value & "')"
cmA.Execute()
Sp1.InnerText="这个叙述影响了" & cmA.RecordsAffected & "笔资料"
End Sub
</SCRIPT>
</body>
</html>
运行时，为什么提示说adocommand没有定义，运行错误呢？

...全文

31 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

timmy3310 2003-03-27

打赏
举报

第一次慢是正常的

页面需要编译、第一次连接需要时间

wateriness 2003-03-27

打赏
举报

to: timmy3310(tim)
这样改了之后,就运行很慢,几乎进不去了.

kinglht 2003-03-27

打赏
举报

将<%@Import Namespace=System.Data.ADO%>
改为：
<%@Import Namespace=System.Data.OleDb%>
或
<%@Import Namespace=System.Data.SqlClient%>

用的时候只有
OleDbCommand和SqlCommand

dragontt 2003-03-27

打赏
举报

你换成new System.Data.ADO.ADOCommand()试一下

给个例子
http://www.dotnetjunkies.com/tutorials.aspx?tutorialid=80
（不过是C#写的）

timmy3310 2003-03-27

打赏
举报

<%@Import Namespace=System.Data.ADO%>
改为：
<%@Import Namespace=System.Data.OleDb%>

Sub Button1_Click(Sender As Object, e As EventArgs)
Dim strConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=MyWeb.mdb"
Dim cmA As ADOCommand = New ADOCommand("",strConStr)
cmA.ActiveConnection.Open()
cmA.CommandText="Insert Into Members Values('" & _
Text1.Value & "','" & Text2.Value & "','" & _
Text3.Value & "','" & Text4.Value & "','" & _
Text5.Value & "','" & Text6.Value & "')"
cmA.Execute()
Sp1.InnerText="这个叙述影响了" & cmA.RecordsAffected & "笔资料"
End Sub

改为：

Sub Button1_Click(Sender As Object, e As EventArgs)
Dim strConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=MyWeb.mdb"
Dim cmA As OleDbCommand = New OleDbCommand("",strConStr)
cmA.Connection.Open()
cmA.CommandText="Insert Into Members Values('" & _
Text1.Value & "','" & Text2.Value & "','" & _
Text3.Value & "','" & Text4.Value & "','" & _
Text5.Value & "','" & Text6.Value & "')"
cmA.Execute()
Sp1.InnerText="这个叙述影响了" & cmA.RecordsAffected & "笔资料"
End Sub

ADO是Beta版的名字，正式版改为了OleDb

liuyong_lll 2003-03-27