标题:菜鸟求助!!编了个注册器有问题!
只看楼主
czqyx
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-3-21
 问题点数:0 回复次数:3 
菜鸟求助!!编了个注册器有问题!
我编了个注册器 代码如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Me.Text = "正在验证......"
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
Dim comstr As String
Dim mydataset As New DataSet
comstr = "select 密码 from 用户 where 用户名 = ' Trim(textbox1.Text) '"
mydataset.Clear()
Dim adapter As New sqldataadapter(comstr, SqlConnection1)
adapter.fill(mydataset, "table1")
If mydataset.Tables("table1").Rows(0).Item(0) = Trim(TextBox1.Text) Then
userinf(0) = Trim(TextBox1.Text)
Me.Hide()
Else
MsgBox("密码错误!")
TextBox2.Text = ""
Me.Text = ""
Me.Cursor = System.Windows.Forms.Cursors.Arrow
TextBox2.Focus()
End If
Catch ex As Exception
MsgBox("用户不存在!", MsgBoxStyle.OKOnly, "提示")
TextBox1.Text = ""
TextBox1.Text = ""
Me.Text = ""
Me.Cursor = System.Windows.Forms.Cursors.Arrow
End Try
End Sub
我在SQL中新建名为“注册器”数据库,在其中新建表“用户”,字符段“用户名,密码”
可运行有问题
搜索更多相关主题的帖子: Dim System New 
2007-03-25 11:02
Kendy123456
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:62
帖 子:2720
专家分:0
注 册:2007-1-3
得分:0 

有什么问题? 把错误描述贴出来


2007-03-26 11:23
czqyx
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-3-21
得分:0 
回复:(Kendy123456)有什么问题? 把错误描述贴出来...

问题就是无法把数据写入数据库,也不报错。

2007-03-26 19:42
Kendy123456
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:62
帖 子:2720
专家分:0
注 册:2007-1-3
得分:0 
你根本没有任何写入数据库的代码 怎么会写入?

2007-03-27 09:11



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-126623-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.080258 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved