VB写窗口的问题 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → VB写窗口的问题

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1651 人关注过本帖

标题：VB写窗口的问题

只看楼主加入收藏

huangchen

等　级：新手上路
帖　子：20
专家分：0
注　册：2008-11-11

第 11 楼

得分:0

[bo][un]不说也罢[/un] 在 2008-11-12 12:33 的发言：[/bo]

'接下来怎么写啊:
'或许是这样续写,不知道你是想怎么样
if not mrc.eof then'如果用户名密码正确
  'msgbox "登录成功"
  form1.show
  unload me
else
  msgbox "用户名密码不正确......"

end if

就是这样写啊，但是if not mrc.eof then提示对象变量或with块变量未设置，要怎么设置啊，帮帮忙，我是初学者

2008-11-12 12:53

huangchen

等　级：新手上路
帖　子：20
专家分：0
注　册：2008-11-11

第 12 楼

得分:0

[bo][un]hbutwzc[/un] 在 2008-11-12 12:52 的发言：[/bo]

strSQl = "select * from 用户信息表 where 用户名='" & Trim$(Text1.Text) & "' and 用户密码='" & Trim$(Text2.Text) & "' "
  Set mrc = ExecuteSQL(txtSQL, MsgText)
    请问ExecuteSQL带返回值不？
if   mr ...

不用带返回值

2008-11-12 13:28

hbutwzc

等　级：新手上路
威　望：2
帖　子：376
专家分：0
注　册：2008-6-17

第 13 楼

得分:0

Public mrc As ADODB.Recordset
是不是哪些变量没有声明啊？

2008-11-12 13:43

不说也罢

等　级：贵宾
威　望：39
帖　子：1481
专家分：4989
注　册：2007-10-7

第 14 楼

得分:0

就是这样写啊，但是if not mrc.eof then提示对象变量或with块变量未设置，要怎么设置啊，帮帮忙，我是初学者

把这一句 Dim mrc As ADODB.Recordset 改为 Dim mrc As New ADODB.Recordset
'Set mrc = ExecuteSQL(txtSQL, MsgText)这一句ExecuteSQL过程的两个变量你总是应当知道怎么传的吧?
Dim mrc As  New  ADODB.Recordset
    Dim MsgText As String
Dim strSQl As String
strSQl = "select * from 用户信息表 where 用户名='" & Trim$(Text1.Text) & "' and 用户密码='" & Trim$(Text2.Text) & "' "
  Set mrc = ExecuteSQL(strSQL, MsgText)
........

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================

2008-11-12 13:55

huangchen

等　级：新手上路
帖　子：20
专家分：0
注　册：2008-11-11

第 15 楼

得分:0

[bo][un]hbutwzc[/un] 在 2008-11-12 13:43 的发言：[/bo]

Public mrc As ADODB.Recordset
是不是哪些变量没有声明啊？

要怎样声明啊，要不麻烦你直接给我写一个登陆窗口吧，我实在是搞不明白了

2008-11-12 18:52

huangchen

等　级：新手上路
帖　子：20
专家分：0
注　册：2008-11-11

第 16 楼

得分:0

[bo][un]不说也罢[/un] 在 2008-11-12 13:55 的发言：[/bo]

把这一句 Dim mrc As ADODB.Recordset 改为 Dim mrc As New ADODB.Recordset
'Set mrc = ExecuteSQL(txtSQL, MsgText)这一句ExecuteSQL过程的两个变量你总是应当知道怎么传的吧?
Dim mrc As New ADODB.Record ...

我改了，执行时出先下面提示

要不麻烦你给我写一个登陆界面啊，我实在是搞不懂了，谢谢了