| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1120 人关注过本帖
标题:VB连接数据库的一段程序,为什么说函数或子程序未定义
只看楼主 加入收藏
冬瓜1206
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-12-6
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
VB连接数据库的一段程序,为什么说函数或子程序未定义
Private SqlCon As New ADODB.Connection
Private SqlRes As New ADODB.Recordset
Private SqlCmd As New
Public loginname As String
Private Sub Form_Load()
SqlCon.Provider = "SQLOLEDB"
SqlCon.Open "User ID =sa;Password=123456;Initial Catalog=MBOOK;Data Source=WAK-20131119DGW"
SqlCmd.ActiveConnection = SqlCon
End Sub
Private Sub L_button_Click()
If R_radio.Value = True Then
= "SELECT * FROM TReader WHERE 借书证号=" + Trim(login_name.Text) + ""
SetSqlRes = SqlCmd.Execute
If Not SqlRes.EOF Then
If password.Text = SqlRes("密码") Then
loginname = login_name.Text
login.Hide
main.Show
Else
Call MsgBox("密码错误!")
End If
Else
Call MsgBox("登录名错误!")
End If
ElseIf A_radio.Value = True Then
= "SELECT * FROM Administrator "
Where 角色名 = "+Trim(login_name.Text)+"""
Set SqlRes = SqlCmd.Execute
If Not SqlRes.EOF Then
If password.Text = SqlRes("密码") Then
loginname = login_name.Text
login.Hide
main.Show
Else
Call MsgBox("密码错误!")
End If
Else
Call MsgBox("登录名错误!")
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
SqlCon.Close

End Sub
2015-12-10 15:29
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:20 
1、有引用,而你未引用。
2、函数写错了,但VB语法检验没检到。

你这一大堆代码,无缩进,好难看,只能靠你自己了。哪一句报错。
如果是 DIM 部分,那就是引用。

授人于鱼,不如授人于渔
早已停用QQ了
2015-12-11 08:55
冬瓜1206
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-12-6
收藏
得分:0 
回复 2楼 风吹过b
好的,我去看看
2015-12-12 08:52
快速回复:VB连接数据库的一段程序,为什么说函数或子程序未定义
数据加载中...
 
   



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

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