tt1212 > 01-06-15, 01:36 AM
maidinhdan > 01-06-15, 05:01 PM
tt1212 > 01-06-15, 10:03 PM
(01-06-15, 05:01 PM)maidinhdan Đã viết: Có lẽ phần này anh tt1212 nhờ anh hoanbhxhls trợ giúp sẽ tốt nhất vì anh ấy có nhiều kinh nghiệm trong việc triển khai kết nối SQL Server + Access.Xin cảm ơn Maidinhdan khồn biêt hoanbhxhls có nhiệt tình giúp đỡ cho hay không nữa
Nhưng với câu hỏi trên em cũng xin mạng phép có vài lời góp ý, mong các anh bổ sung thêm nếu thiếu chỗ nào.
1. Khi đã triển khai SQL Server đừng bó hẹp trong phạm vi localhost mà ta phải nghĩ đến Web Server thì hay hơn. Cho nên vấn đề trên khi cung cấp ứng dụng cho người dùng ta chỉ cần tạo User + Pass đăng nhập là đủ rồi.
Còn phần tên Server và Database thì nên cho nó vào table hay một class/ thủ tục hàm gì đó để chạy sẽ linh hoạt hơn cho người dùng khi mở ứng dụng cứ lặp đi lặp lại đến 4 ô mới có thể đăng nhập vào ứng dụng. Thì thật chán nản luôn....
2. Em nghĩ mỗi cơ quan cao nhất chỉ có 1 Server thôi, Database thì có thể nhiều hay ít tùy thuộc vào có bao nhiêu ứng dụng được triển khai.
* Em xin phép được nói 2 ý này thôi vì em biết có lẽ kinh nghiệm anh còn nhiều hơn em nửa!
Thân ái chào anh.
maidinhdan > 02-06-15, 10:45 AM
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Đọc lại các giá trị từ Registry
SQLServerName = Microsoft.VisualBasic.GetSetting(My.Application.Info.ProductName, "INIT", "SQLServerName", "")
SQLLoginMode = CType(Microsoft.VisualBasic.GetSetting(My.Application.Info.ProductName, "INIT", "SQLLoginMode", "False"), Boolean)
SaveSQL = CType(Microsoft.VisualBasic.GetSetting(My.Application.Info.ProductName, "INIT", "SavedSQL", "False"), Boolean)
SaveSQLUser = Microsoft.VisualBasic.GetSetting(My.Application.Info.ProductName, "INIT", "SaveSQLUser", "")
SaveSQLPW = Microsoft.VisualBasic.GetSetting(My.Application.Info.ProductName, "INIT", "SaveSQLPW", "")
SaveUser = CType(Microsoft.VisualBasic.GetSetting(My.Application.Info.ProductName, "INIT", "SaveUser", "False"), Boolean)
SaveUserName = Microsoft.VisualBasic.GetSetting(My.Application.Info.ProductName, "INIT", "SaveUserName", "")
SaveUserPW = Microsoft.VisualBasic.GetSetting(My.Application.Info.ProductName, "INIT", "SaveUserPW", "")
'-------------------------------------------
Dim dtSQL As New DataTable
Dim sName As String
dtSQL = Microsoft.SqlServer.Management.Smo.SmoApplication.EnumAvailableSqlServers() 'Lấy tên các SQL Server
For Each r As DataRow In dtSQL.Rows 'Đưa vào ComboBox
sName = r.Item("Name").ToString
If sName = "" Then sName = "(local)"
cboServerName.Items.Add(sName)
Next
If SQLServerName <> "" Then
cboServerName.Text = SQLServerName 'Chọn ComboBox hiện tên Server đã chọn
Else
If cboServerName.Items.Count > 0 Then cboServerName.SelectedIndex = 0 'Chưa có tên chọn Server đầu tiên
End If
cntLogin = 0
If Not SQLLoginMode Then 'Chọn loại đăng nhập
WinAuth.Checked = True
SQLAuth.Checked = False
AuthServerSQL(False)
Else
WinAuth.Checked = False
SQLAuth.Checked = True
AuthServerSQL(True)
End If
CheckBoxServerSave.Checked = SaveSQL 'Chọn xem có lưu lại User và Pass không
If SaveSQL Then
TextBoxServerLoginName.Text = SaveSQLUser
TextBoxServerPassword.Text = SaveSQLPW
End If
CheckBoxUserSave.Checked = SaveUser
If SaveUser Then
UsernameTextBox.Text = SaveUserName
PasswordTextBox.Text = SaveUserPW
End If
End Sub
hieuvn > 02-06-15, 12:33 PM
tt1212 > 02-06-15, 03:52 PM