UC知道请教一个VB与SQL连接问题
来源：百度知道 编辑：UC知道 时间：2024/05/21 06:29:20
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MessageBox.Show("必添项目不得为空", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
Dim myview As DataView
myview = New DataView(DataSet41.xuesheng, "", "xuehao", DataViewRowState.CurrentRows)
Dim rowstate As Integer = myview.Find(TextBox1.Text)
If rowstate = -1 Then
Beep()
MsgBox("未找到此纪录,可以存入")
Dim str1, str2 As String
str1 = "insert into xuesheng(xuehao,xingming,xingbie,banji,nianling"
str2 = "values( '" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBo
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MessageBox.Show("必添项目不得为空", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
Dim myview As DataView
myview = New DataView(DataSet41.xuesheng, "", "xuehao", DataViewRowState.CurrentRows)
Dim rowstate As Integer = myview.Find(TextBox1.Text)
If rowstate = -1 Then
Beep()
MsgBox("未找到此纪录,可以存入")
Dim str1, str2 As String
str1 = "insert into xuesheng(xuehao,xingming,xingbie,banji,nianling"
str2 = "values( '" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBo
你是不是少了个end if啊
If rowstate = -1 Then
这句的end if在哪里呢?
你学号字段的类型是什么？
不知道你初始连接数据库时的dataset 的设置是什么样的
你可以直接用oledbconnection 来连接数据库试试