函数调用-新人求助 vb.net+access数据库编写电话簿,调用添加和删除函数,调试都卡住了。

问题描述

新人求助 vb.net+access数据库编写电话簿,调用添加和删除函数,调试都卡住了。

添加函数:

  1. '写一个添加用户信息的方法,它的返回值是布尔型,
    Function AddUser(ByVal User As DBuser) As Boolean
    '首先判断用户名是否已经存在
    Dim SQLString As String
    SQLString = "SELECT * FROM telephonebook WHERE 姓名 ='" & nm & ""
    Dim oneTable As DataTable = DBOperation.DBOperate(SQLString)
    If oneTable.Rows.Count >= 1 Then
    MsgBox("输入的联系人已经存在,请重新输入", MsgBoxStyle.Exclamation, "消息框")
    Return False
    Else
    SQLString = "INSERT INTO telephonebook VALUES('" & nm & "','" & no1 & "','" & no2 & "','" & nohm & "','" & addr & "','" & qq & "','" & email & "')"
    DBOperation.DBOperate(SQLString)
    MsgBox("成功添加联系人信息", MsgBoxStyle.Exclamation, "消息框")
    Return True
    End If
    End Function
    添加函数的调用
  2. '这里我们采用的是实例化DBUser,产生一个实例化对象,做为我们后面要传进去的参数
    Dim tempTable As New DBuser(Trim(Me.nm.Text))
    ' 将我们在界面输入的信息填充到我们临时的表中
    tempTable.nm = Trim(Me.nm.Text)
    tempTable.no1 = Trim(Me.no1.Text)
    tempTable.no2 = Trim(Me.no2.Text)
    tempTable.nohm = Trim(Me.nohm.Text)
    tempTable.addr = Trim(Me.addr.Text)
    tempTable.qq = Trim(Me.qq.Text)

        tempTable.email = Trim(Me.email.Text)
        '这样tempTable中的信息就完善啦!下一步进行实例传入
        User.AddUser(tempTable)
    


    调试添加功能时User.AddUser(tempTable)这一行显示:未处理NullReferenceException 未将对象引用设置到对象的实例 "
    删除函数调用时也是调试卡在了相同的地方。
时间: 2024-10-03 20:43:04

函数调用-新人求助 vb.net+access数据库编写电话簿,调用添加和删除函数,调试都卡住了。的相关文章

显示-vb 连接access数据库路径问题

问题描述 vb 连接access数据库路径问题 '==================通过复制新建了个access数据库其中text.text放着CommonDialog1.FileName Private Sub new_Click() On Error GoTo Cancel Dim FileName As String Dim FileSystemObject As Object CommonDialog1.Filter = "microsoft access 数据库(*.mdb)|*.m

求助关于远程访问ACCESS数据库的问题

  求助关于远程访问ACCESS数据库的问题:源代码如下:<%Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "Provider=MS Remote;Remote Server=http://www.luo.cc;Remote Provider=MSDASQL;DSN=backMDB;Uid=luo;Pwd=luo"Set RS=Conn.Execute("select * fro

vb神童教程(续)--vb连接Access数据库实例

本文欢迎非商业用途的转载,但需要注明出自"编程入门网"及相应的网址链接. 下面我们给出一个连接到Access数据库的实例,此例中用到的数据库为Access 2003.首先在e盘建立一个名为vb的文件夹,然后打开Access 2003,单击"文件"→"新建",在右侧出现的任务窗格中单击"空数据库",在出现的对话框中,我们在"文件名"项后输入给新数据库起的名称并选择保存位置,这里我们为新数据库命名为Access

用VB建立Access数据库结构

PrivateSubCommand1_Click() OnErrorGoToErr100 '定义表与字段 DimDefDatabaseAsDatabase DimDefTableAsTableDef,DefFieldAsField SetDefDatabase=Workspaces(0).OpenDatabase(App.Path&"vbeden.mdb",0,False) SetDefTable=DefDatabase.CreateTableDef("VB编程乐园&

vb 连接access数据库时出现的问题,急急急!!!!!!!!!!!!!!!!!!!!!

问题描述 PrivateSubMDIForm_Initialize()DimmpathAsStringmpath=App.Path//进入access数据库存放的目录IfRight(mpath,1)<>""Thenmpath=mpath+""Data1.DatabaseName=mpath+"vbdata.mdb"//使用data控件Data1.RecordSource="access"EndSubPrivateS

vb net access数据库清空data set后怎么样更新数据库

问题描述 access数据库用向导生成这段代码无法更新回数据库TryDatabaseDataSet.Tables("sale").Rows.Clear()Me.Validate()SaleBindingSource1.EndEdit()SaleTableAdapter.Update(Me.DatabaseDataSet.sale)MsgBox("Updatesuccessful")CatchexAsExceptionMsgBox("Updatefailed

[求助]VB2008中access数据库多重组合查询

问题描述 小弟想做一个查询动作,access数据库在模块中连接,在access表"工时"中含有时间,工程名,工程地点,参与人名和人员编号等,想通过工程名查出一个工程,能查出所有有关该工程的数据条,接着再从这些数据条中查在某个时间段内的那些数据条,最后在叫做AZL的ListView中显示结果,以下这段就是自己写的查询语句,当SQL1或SQL2单独运行查询的时候一切正常,但是把它们组合起来后就不行了.小弟先谢过了,sql不过关啊,求教高手指点,如何将它们组合能实现多重查询?Sublistd

如何向Access 2007快速访问工具栏添加或删除命令

默认情况下,Access2007的快速访问工具栏中只有保存.撤销和无法恢复三个最常用的命令.用户可以根据实际需要在快速访问工具栏中添加或删除命令,操作步骤如下所述: 第1步,打开Access2007窗口,在"快速访问工具栏"中单击"自定义快速访问工具栏"按钮,如图2008123103所示. 图2008123103 单击"自定义快速访问工具栏"按钮 第2步,在打开的"自定义快速访问工具栏"中选中需要的命令即可将该命令添加到&qu

ASP.NET(VB)向Access数据库中插入数据错误...

问题描述 PrivateSubclick(ByValsenderAsObject,_ByValeAsSystem.EventArgs)Dimstrconn,strsqlAsStringDimmyconnAsOleDbConnectionaddress.Text=Replace(address.Text,Chr(39),"&apos;")DimcmdAsOleDbCommandstrconn="Provider=Microsoft.Jet.OLEDB.4.0;DataS