Căn bản về truy vấn CSDL online từ Excel đến Server.

Chia sẻ bởi:hands

★★★★★

‹ ADO căn bản: Kết nối truy vấn... File minh họa việc kết nối đến... ›

Quảng cáo

Như các bạn cũng đã biết thì để làm việc với CSDL online là việc rất cần cho mỗi chúng ta về việc cập nhật, truy vấn để làm báo biểu, cho dù bạn ở nhà hay đi công tác xa cũng vẫn có thể xử lý được dữ liệu.

Được sự cho phép dùng CSDL của bạn LeHongDuc ở bài [URL="https://www.giaiphapexcel.com/forum/showthread.php?99908-File-minh-họa-việc-kết-nối-đến-dữ-liệu-SQL-Server-từ-file-MS-Access"]File minh họa việc kết nối đến dữ liệu SQL Server từ file MS. Access, tôi xin viết vài bài về truy vấn dữ liệu bằng Excel đến Server.
Do kiến thức còn nhiều hạn chế nên không tránh sai xót, mình rất mong các bạn cùng nhau thảo luận và cho ý kiến phản hồi để ngày càng hoàn thiện hơn.

Mục lục:
1. Bài 1: [URL="https://www.giaiphapexcel.com/forum/showthread.php?99917-C%C4%83n-b%E1%BA%A3n-v%E1%BB%81-truy-v%E1%BA%A5n-CSDL-online-t%E1%BB%AB-Excel-%C4%91%E1%BA%BFn-Server&p=623335#post623335"]Kết nối với CSDL
2.

Tôi sẽ viết bài ở các phần sau:
Bài 1: Kết nối với CSDL:

Các bạn tạo 1 file Excel mới, đặt tên sheet là ServerName, vùng dữ liệu A1:B4 các bạn điền thông tin như hình sau:

2926

Tạo xong như hình trên, các bạn nhấn tổ hợp phím Alt+F11 để vào cửa sổ code, Vào Insert chọn Module, sau đó chép code sau vào module:

Option Explicit
Public Cn As Object

'Mo ket noi den CSDL
Sub MoKetNoi()
    Dim strServerName As String, strDatabaseName As String, strUserID  As String, strPassword As String
    With Sheets("ServerName")
        strServerName = .Range("B1") ' Server name
        strDatabaseName = .Range("B2") 'Database name
        strUserID = .Range("B3") 'User name
        strPassword = .Range("B4") 'Password
    End With
    'Khoi tao ket noi den CSDL
    Set Cn = CreateObject("ADODB.Connection")
    Cn.Open "Driver={SQL Server};Server=" & strServerName & ";Database=" & strDatabaseName & _
    ";Uid=" & strUserID & ";Pwd=" & strPassword & ";"
     If Cn.State = 1 Then MsgBox "Ban da ket noi thanh cong voi CSDL"
End Sub

Sau cùng là các bạn nhấn F5 để chạy Sub MoKetNoi ở trên, nếu hiện kết quả như hình sau thì có nghĩa là các bạn đã thành công.

2925