十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
假设已经链接了数据库的情况下,用以下两种方法:
成都创新互联公司专注为客户提供全方位的互联网综合服务,包含不限于成都网站建设、做网站、杭锦后网络推广、重庆小程序开发、杭锦后网络营销、杭锦后企业策划、杭锦后品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;成都创新互联公司为所有大学生创业者提供杭锦后建站搭建服务,24小时服务热线:18980820575,官方网址:www.cdcxhl.com
1、执行SQL语句
(mysql数据库句柄,
“update
users
set
name='”
+
编辑框1.内容+
“
where
条件)’(条件根据自己的情况填写,这是更新原有记录)
2、执行SQL语句
(mysql数据库句柄,
“insert
into
users(name)
values
('”
+
编辑框1.内容
+
“')”)(这是添加一条新记录)
改成以下写法可知道执行是否成功
:
如果(执行SQL语句
(mysql数据库句柄,
“update
users
set
name='”
+
编辑框1.内容+
“
where
条件))‘(条件根据自己的情况填写,这是更新原有记录)
/在模块里编写(新建模块)
Public comm As New ADODB.Command
Public conn As New ADODB.Connection
Public uname As String
Public pwd As String
Public ulevel As Integer
Sub main()
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=wow;Data Source=."
conn.Open
Form1.Show
End Sub
'判断登陆是否成功(封装函数)
Public Function isLogin(uname, pwd, ulevel) As Boolean
Dim flag As Boolean
comm.ActiveConnection = conn
comm.CommandType = adCmdStoredProc
comm.CommandText = "isLogin"
comm.Parameters(1).Type = adVarChar
comm.Parameters(1).Size = 50
comm.Parameters(1).Direction = adParamInput
comm.Parameters(1).Value = uname
comm.Parameters(2).Type = adVarChar
comm.Parameters(2).Size = 50
comm.Parameters(2).Direction = adParamInput
comm.Parameters(2).Value = pwd
comm.Parameters(3).Type = adInteger
comm.Parameters(3).Size = 4
comm.Parameters(3).Direction = adParamInput
comm.Parameters(3).Value = ulevel
comm.Parameters(4).Type = adInteger
comm.Parameters(4).Size = 4
comm.Parameters(4).Direction = adParamOutput
comm.Execute
If comm.Parameters(4).Value 0 Then
flag = True
Else
flag = False
End If
isLogin = flag
End Function
/在登陆窗体中调用封装函数实现登陆判断
Private Sub Command1_Click()
Dim uname As String
Dim pwd As String
Dim ulevel As Integer
uname = Text1.Text
pwd = Text2.Text
If Combo1.Text = "管理员" Then
ulevel = 1
Else
ulevel = 0
End If
If isLogin(uname, pwd, ulevel) Then
MsgBox "登陆成功", vbOKOnly, "提示"
Form2.Show
Unload Me
Else
MsgBox "登录失败", vbOKOnly, "提示"
End If
End Sub
Private Sub Command2_Click()
Text1.Text = Clear
Text2.Text = Clear
Text1.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
Form3.Show
Unload Me
End Sub
Private Sub Form_Load()
Combo1.AddItem "管理员"
Combo1.AddItem "用户"
End Sub
/在MYSQL企业管理器中编写存储过程:(选中以下编写的内容并执行即可生成存储过程)
create proc isLogin @uname varchar(50), @pwd varchar(50),@ulevel int, @flag int output
as
declare @count int
select @count=count(*) from [user] where
uname=@uname and pwd=@pwd and ulevel=@ulevel
if @count0
set @flag=1
else
set @flag=0
create proc AddUser @uname
看你是要用哪种语言啦一、 如果你用C1、Turboc DOS经典编译软件2、Win-TC 图形化编译软件,其特点是容量小3、VC++ 微软件开发的,主要是用来弄C++的,不过因为他支持中文显示,做为C的开发也很不错二、如果你是搞VB、VS等的你可以直接下载一个Microsoft Visual 集成,里面包含有VC++、VS、VB等编译软件三、如果你是要搞JAVA的1、你如果自认为自己写代码很牛,那你就去下载个一java编译器就行了,代码用记事本写2、不然你就去下载下JDK四、搞汇编的1、Masm集成实验环境还是很不错的五、搞网站开发的(1)asp,把你的电脑IIS配置好,不用软件,一个记事本一样搞定(2)PHP 那你就得去下载Apache、php5.0、Mysql,一样,代码用记事本就能搞定,前软件只是构建一个环境 (3)Drewawear应该少不了啦暂就这些,都是我用过的