VBsql数据的导入导出与删除修改<增删改查;（机房问题）

Posted 2023-02-25 遥寄三山

连接完数据库，接下来就是将数据导入数据库以及从数据库中导出数据了。 这边的代码并不难实现，主要是其中的逻辑关系，比如，要进一个系统，需要验证很多方面，这就需要一个清晰的逻辑顺序，先要验证text账号密码框中有无输入，其次，要验证数据库中有无数据，如果有，还要验证数据库中有无该账号以及密码是否正确等。 代码部分，首先，用连接数据库的语句连接上数据库。然后，就可以把数据导入到数据库，在这需要注意的是，如果是有关键字的查询数据库，则临时表停留在关键字行，如果是直接查询数据库，则从第一行开始，如需要添加新行，则添加到数据库的最后一行。 导入数据：

	mrc.Addnew'临时表中添加行
	mrc.Fields(0)=Trim(txtUserName.Text)
	mrc.Fields(1)=Trim(txtPassWord.Text)
	mrc.Fields(2)=Trim(ComboRank.Text)
	mrc.Fields(3)=Trim(txtName.Text)
	mrc.Fields(4)=Trim(User)'该处为我的自定义函数
	mrc.Update'更新
	mrc.Close'关闭

导出数据： 同样需要连接数据库，本例中是有关键字额查询，如果数据库中有该条记录，则将该行记录传递到控件中。也就是在窗体中显示出来，完成了数据的导出。

<span style="white-space:pre">	</span>txtSQL = "select * from student_Info where cardno = '" & Trim(txtCardNo.Text) & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        
        If mrc.EOF = False Then
            lblSID.Caption = mrc!studentNo
            lblClass.Caption = mrc!Class
            lblName.Caption = mrc!studentName
            lblStatus.Caption = mrc!Status
            lblGender.Caption = mrc!sex
            lblRemark.Caption = mrc!Explain
            lblDepartment.Caption = mrc!department
            lblGrade.Caption = mrc!grade
            lblLastmoney.Caption = mrc!cash'可以用mrc！关键字，也可用mrc.Fileds(关键列)
            mrc.Close
        Else
            MsgBox "该卡号不存在，请重新输入！", vbOKOnly + vbExclamation, "警告"
<span style="white-space:pre">	</span>End If

删除数据以及修改数据，首先连接数据库，根据关键字查到要修改或删除的行，如果是修改的话，参考导入数据（不加mrc.AddNew），如果是删除，直接mrc.Delete就可以了。当然，这些代码在完成后都需要更新（mrc.Update)，以及关闭数据库。    数据的增删改查还需要注意一点就是mrc.EOF=mrc.BOF的问题，防止数据库为空或者解决这类问题需要根据要查询的数据来找到解决办法。