vb中的sql对比查询，急，谢谢啦！

来源：百度知道 编辑：UC知道 时间：2024/05/31 04:26:30
请问怎么在vb中编写一个程序，来从sql数据库某个表中调出某个字段的所有记录，然后拿在vb中用户输入的一个记录与这些记录相比较，若数据库中没有这条记录则将其入库，若有则不入库？我很着急，谢谢高手啦！qq:173635235

Imports System ' 引入数据库操作类命名空间
Imports System.Data
Imports System.Data.SqlClient
Public Class 登录
Dim i As Integer ' 声明计数器i，用来记录登录次数

' 取消按钮事件，当单击取消按钮，清除输入信息
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub

' 计时器事件，控制登录时间，使用标签来模拟计时器显示
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label5.Text = Val(Label5.Text) - 1
If Val(Label5.Text) = 0 Then ' 当标签显示文本为0时
Timer1.Enabled = False ' 计时器不再使用
MessageBox.Show("登录时间到，退出该系统！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Hand)
Me.Close()
End If
End Sub

' 登录按钮事件，控制登录
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles