Tình hình là ông thầy cho code kết nối CSDL nhưng gõ xong test thấy nó sai sai các pro ạ.
Code form Kết nối đây:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | Private Sub KetNoi()
Dim conn As New SqlConnection("Data Source = txtServer.Text ; Initial Catalog = txtCSDL.Text ; User ID = txtUser.Text;Password =txtPass.Text"
Try
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
Catch ex As Exception
MsgBox("Kết nối CSDL thành công!", MsgBoxStyle.Information, "thông báo")
frmDangNhap.Show()
Me.Hide()
End Try
End Sub
Private Sub btnKetNoi_Click(sender As Object, e As EventArgs) Handles btnKetNoi.Click
KetNoi()
End Sub
|
Debug thì để trắng nó cũng báo kết nối thành công rồi phi thẳng đến form đăng nhập luôn. T_T
Các pro chỉ e cách sửa với ạ. Đang làm báo cáo.
