急救!!120...VB.NET问题

2004-04-03 01:49:21 83 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

POJ 3080 Blue Jeans KMP算法+暴力匹配题意：给定n组测试数据，每组测试数据有m个字符串，找出这些字符串中最长的公共字符串，如果有多组长度一样，输出字典序最小的。如果公共字符串的长度小于3，输出no significant commonalities 题解：对于每一组测试数据，二重循环暴力搜索第一个字符串的所有子串。匹配剩下的字符串，如果是共有的，且新字符串比原字符串长或者长度一样且字典序更小时，则更新答案字符串。 AC代码... 阅读详情

imports system.data
imports system.data.sqlclient
imports system.nullreferenceexception
public class _default
inherits system.web.ui.page
# region "web 窗体设计器
...简了
dim mycon as sqlconnection
dim mycom as sqlcommand
sub page_load(sender as object,e as eventargs)
if not ispostback then
mycon=new sqlconnection("data source=(local);initial catalog=lyzygl;user id=sa;")
mycom=new sqlcommand("select name,passwd from ydzy",mycon)
end if
end sub
sub button1_click(sender as object,e as eventargs)
mycon.open()
dim dt as SqlDataReader=mycom.ExcuteReader()
while dt.read()
if trim(dt("name"))=trim(textbox1.text) and trim(dt("passwd"))=trim(textbox2.text) then
reponse.redirect("announce.aspx")
end if
dt.read()
end while
message.html="用户不存在或者密码错误!"
end sub
......以下简了....
错误信息为:未将对象引用设置到对象的实例/////
不要叫我换成 datatable...因为我换了也不行!我的程序里每个页面全是这种错误我已经倒了。!!!!谢谢告诉我。。。。。

...全文

DeepSeek 在 PostgreSQL 中，执行 `DELETE` 操作后，数据占用的空间并不会立即释放给操作系统操作后，数据占用的空间并不会立即释放给操作系统。这是 PostgreSQL 的 MVCC（多版本并发控制）机制决定的——删除的数据只是被标记为“死元组”，物理空间仍然被表占用。这是最彻底的释放方式，会将表重写为一个没有空洞的新文件，将空间返回给操作系统。如果你的表非常大（如几百GB），或者这是生产环境的核心表，建议优先考虑。你可以告诉我你的表大概多大、是否能接受锁表，我可以给你更精确的建议。要真正释放空间，需要根据你的实际需求，从以下三种方案中选择一种。如果你既想彻底释放空间，又无法接受锁表，阅读详情

fayewang

.NET社区 62,272 成员 668,968 内容

+ 关注 + 加入社区

切换为时间正序

ljmay168 2004-04-03

打赏
举报

Dim mycom As SqlCommand = New SqlCommand(insertcmd, mycon)
mycom.CommandType = CommandType.StoredProcedure

fayewang 2004-04-03

打赏
举报

Imports System.Data
Imports System.Data.SqlClient
Imports System.Web
Imports System.IO
Public Class register
Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub
Protected WithEvents usid As System.Web.UI.WebControls.TextBox
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents message As System.Web.UI.HtmlControls.HtmlGenericControl
Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary
Protected WithEvents pwd As System.Web.UI.WebControls.TextBox
Protected WithEvents pwd1 As System.Web.UI.WebControls.TextBox
Protected WithEvents part As System.Web.UI.WebControls.TextBox
Protected WithEvents usertype As System.Web.UI.WebControls.DropDownList
Protected WithEvents RequiredFieldValidator3 As System.Web.UI.WebControls.RequiredFieldValidator
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region
Dim cou As Integer
Dim mycon As SqlConnection = New SqlConnection("data source=wangfei;initial catalog=lyzygl;user id=sa;")
Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
End Sub

Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim insertcmd As String = "insert into usertype (name,passwd,type,depart) values (@name,@passwd,@type,@depart)"
Dim mycom As SqlCommand = New SqlCommand(insertcmd, mycon)
mycom.Parameters.Add(New SqlParameter("@name", SqlDbType.NVarChar, 50))
mycom.Parameters.Add(New SqlParameter("@passwd", SqlDbType.NVarChar, 50))
mycom.Parameters.Add(New SqlParameter("@type", SqlDbType.Int, 4))
mycom.Parameters.Add(New SqlParameter("@depart", SqlDbType.NVarChar, 50))
mycom.Parameters("@name").Value = usid.Text
mycom.Parameters("@passwd").Value = pwd.Text
mycom.Parameters("@type").Value = 3
mycom.Parameters("@depart").Value = part.Text
mycom.Connection.Open()
Try
If pwd.Text = pwd1.Text Then
mycom.ExecuteNonQuery()
message.InnerHtml = "恭喜你,注册成功!"
mycom.Connection.Close()
Response.Redirect("default.aspx")
Else
message.InnerHtml = "你的密码与确认密码不一致!"
End If
Catch exp As SqlException
message.InnerHtml = "发生异常!请重新输入!"
End Try
End Sub
End Class
运行时又报错了...
错误如下:
“/lyzygl”应用程序中的服务器错误。
--------------------------------------------------------------------------------

未将对象引用设置到对象的实例。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.NullReferenceException: 未将对象引用设置到对象的实例。

源错误:

行 55： If pwd.Text = pwd1.Text Then
行 56： mycom.ExecuteNonQuery()
行 57： message.InnerHtml = "恭喜你,注册成功!"
行 58： mycom.Connection.Close()
行 59： Response.Redirect("default.aspx")

源文件: c:\inetpub\wwwroot\lyzygl\register.aspx.vb 行: 57

堆栈跟踪:

[NullReferenceException: 未将对象引用设置到对象的实例。]
lyzygl.register.Button1_Click(Object sender, EventArgs e) in c:\inetpub\wwwroot\lyzygl\register.aspx.vb:57
System.Web.UI.WebControls.Button.OnClick(EventArgs e) +108
System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +58
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +18
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +33
System.Web.UI.Page.ProcessRequestMain() +1277

fayewang 2004-04-03

打赏
举报

我去试一试,,,wait for me ...

ljmay168 2004-04-03

打赏
举报

mycon=new sqlconnection("data source=(local);initial catalog=lyzygl;user id=sa;")
mycom=new sqlcommand("select name,passwd from ydzy",mycon)
這兩句要放在if not ispostback then ... end if的外面
我一般都在聲明的同時賦值.

fayewang 2004-04-03

打赏
举报

dim dt as sqldatareader=mycom.excutereader()

fayewang 2004-04-03

打赏
举报

呵呵谢谢正在看。。

fayewang 2004-04-03

打赏
举报

我同学都说这个论坛好，说只要发出的问题一会5分钟就有人给你回话，。。我都等了10分钟了，哎，不会我真的这么惨吧没有有理我。。!~!~!~

hychieftain 2004-04-03

打赏
举报

密码没有输入，是执行哪条语句报错的？
mycon=new sqlconnection("data source=(local);initial catalog=lyzygl;user id=sa;pwd=密码;")

急救!!120...VB.NET问题

相关推荐