help form đăng ký vb.net

Question

lúc em ấn bào btn đăng ký thì bị lỗi như này mọi người xem giúp em với ạ

Private Sub btdangky_Click(sender As Object, e As EventArgs) Handles btdangky.Click
        If txttaikhoan.Text = "" And txtmatkhau.Text = "" And txtnhaplai.Text = "" Then
            MessageBox.Show("Lỗi")
            txttaikhoan.Focus()

        Else
            If txtmatkhau.Text = txtnhaplai.Text Then
                Dim cnn As New SqlConnection
                Dim cmd As New SqlCommand
                cnn.Open()
                Dim sql As String
                sql = "insert into taikhoan values '" & txttaikhoan.Text & "','" & txtmatkhau.Text & "'"
                cmd.CommandText = sql
                cmd.CommandType = CommandType.Text
                cmd.ExecuteNonQuery()


            Else
                MsgBox("Lỗi")
            End If
        End If
    End Sub

Answer 1

Theo thông báo lỗi thì bạn thiếu ConnectionString, bạn kiểm tra lại xem sao:

Dim str As String = "Data Source=.;Initial Catalog=sinhvien;Integrated Security=True"
con.ConnectionString = str
con.Open()

Comments

mình khai báo trong modul rồi bạn
 

 Public cnn As SqlConnection
    Public cmd As SqlCommand
    Const str As String = "Data Source=LAPTOP-AUVB8EOM\SQLEXPRESS;Initial Catalog=taikhoan;Integrated Security=True"
    Public Sub ketnoi()
        cnn = New SqlConnection(str)
        cnn.Open()
    End Sub