TAILIEUCHUNG - Lớp kết nối

Lớp kết nối Imports Public Class ketnoi Public Function ketnoi(ByVal maychu As String, ByVal csdl As String, ByVal nguoidung As String, ByVal matkhau As String) As String Dim strconn As String Dim strerror As String = "" | Lớp kết nối Imports Public Class ketnoi Public Function ketnoi(ByVal maychu As String, ByVal csdl As String, ByVal nguoidung As String, ByVal matkhau As String) As String Dim strconn As String Dim strerror As String = "" strconn = "Server = '" & maychu & "';Database = '" & csdl & "';uid = '" & nguoidung & "';Pwd = '" & matkhau & "'" Dim myconn = New (strconn) Try () Catch ex As Exception strerror = MsgBox() End Try Return strerror End Function Public Function ketnoi2(ByVal maychu As String, ByVal csdl As String) As String Dim strconn As String Dim strerror As String = "" strconn = "server = '" & maychu & "';Database = '" & csdl & "';integated security = sspi" Dim myconn = New (strconn) Try () Catch ex As Exception strerror = MsgBox() End Try Return strerror End Function End Class Nút kết nối Public Class Form1 Private Sub lblmatkhau_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub cboloaiketnoi_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles = False = False If = "SQL Server Authentication" Then = True = True End If End Sub Private Sub btnketnoi_Click(ByVal sender As , ByVal e As ) Handles Dim kn As New ketnoi Dim thongbao As String = "" If ( = "Windown Authentication") Then thongbao = (, ) Else thongbao = (, , , ) End If If thongbao = "" Then MsgBox("Đã kết nối thành công", ) () Else MsgBox(thongbao, ) End If End Sub End Class

TỪ KHÓA LIÊN QUAN
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.