首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vb初学者,怎么将recordset值集的其中一个值赋给一个变量

2013-07-11 
vb菜鸟求助,如何将recordset值集的其中一个值赋给一个变量代码如下:Public Function connectstring() As S

vb菜鸟求助,如何将recordset值集的其中一个值赋给一个变量
代码如下:
Public Function connectstring() As String
connectstring = "Provider=SQLOLEDB.1;Password=198511;Persist Security Info=True;User ID=sa;Initial Catalog=exam;Data Source=192.168.72.100"
End Function

Public Function executesql(ByVal sql As String, magstring As String) As ADODB.Recordset '该函数返回值为记录集
Dim cnn As ADODB.Connection '定义链接
Dim rst As ADODB.Recordset '定义函数内使用的记录集
Dim stokens() As String '定义字符串
On Error GoTo executesql_error '异常处理跳转到该行
stokens = Split(sql) '用Split函数产生一个包含各个子串的数组
Set cnn = New ADODB.Connection
cnn.Open connectstring '打开数据库链接方法
If InStr("INSERT,DELETE,UPDATE,EXECUTE", UCase$(stokens(0))) Then '
    cnn.Execute (sql) '执行语句
msgstring = stokens(0) & "query successful" '返回执行结果
Else
Set rst = New ADODB.Recordset '创建结果数据集
rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic 'trim$为去掉字符串两边的空格,
Set executesql = rst
msgstring = "查询到" & rst.RecordCount & "条记录"
End If
executesql_exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
executesql_error:
msgstring = "查询错误:" & Err.Description
Resume executesql_exit
End Function

登陆界面代码:

Private Sub cmdOK_Click()
Dim yhbh As Integer
Dim yhmm As String
Dim mrc As ADODB.Recordset
Dim txtsql As String
Dim msgtext As String
txtsql = "select yhmm from yhb where yhbh=" & txtUserName.Text
Set mrc = executesql(txtsql, msgtext)
yhmm = mrc("yhmm")
'检查正确的密码
    If txtPassword.Text = yhmm Then
        '将代码放在这里传递
        '成功到 calling 函数
        '设置全局变量时最容易的
        LoginSucceeded = True
        Me.Hide
    Else
        MsgBox "无效的密码,请重试!", , "登录"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If


End Sub
vb sql recordset 赋值
[解决办法]
在模块开头,加上
option explicit

然后F5运行,看在哪提示变量或标签没定义

热点排行