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

关于VB.NET的一段代码

2013-12-02 
求助关于VB.NET的一段代码Private Sub BtAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs

求助关于VB.NET的一段代码
    Private Sub BtAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtAdd.Click
        Dim dbstr As String
        dbstr = "select * from 学生名册 where 学号='" & TxtNumber.Text & " '"
        Myrec = Mydb.OpenRecordset(dbstr, dao.RecordsetTypeEnum.dbOpenDynaset)
        If Myrec.EOF Then
            Myrec.AddNew()
            '增加新记录
            Myrec.Fields(0).Value = TxtNumber.Text
            Myrec.Fields(1).Value = TxtName.Text
            Myrec.Fields(2).Value = TxtDate.Text
            Myrec.Fields(3).Value = TxtTel.Text
            Myrec.Update()
            TxtNumber.Text = ""
            TxtName.Text = ""
            TxtDate.Text = ""
            TxtTel.Text = ""
        Else
            '判断是否存在当前记录,如果存在就执行下面操作
            MsgBox("这个学号已经存在了, 如果需要更改这个人的信息, 请选择[编辑]按钮,", MsgBoxStyle.OkOnly, "信息框")
            TxtNumber.Text = ""
            TxtName.Text = ""
            TxtDate.Text = ""
            TxtTel.Text = ""
        End If
    End Sub
这段代码Myrec = Mydb.OpenRecordset(dbstr, dao.RecordsetTypeEnum.dbOpenDynaset)老是出错,不知道怎么回事 vb.NET 代码
[解决办法]
天知道Mydb.OpenRecordset是什么玩意。这不是系统库,是你自己写的。
[解决办法]
找到原因了,你select * from 学生名册 where 学号='" & TxtNumber.Text & "'",这个=有问题,哈哈,估计你是在全角下输入的,select * from 考生 where 考号='" & TxtNumber.Text & "'",那个参数可以是2个,不是参数问题,

热点排行