kết nối SQL với excel qua ADODB qua IP

[buonphatchan12]

Chào mọi người cho mình hỏi một vấn đề với ạ! Mình muốn kết nối SQL với excel qua adodb thông qua IP ( có thể kết nối từ việt nam thông qua máy chủ sql đặt ở bên nhật hàn gì đó ). Và xem số IP trên SQL chỗ nào ạ!
Sub run_sql(sql)
Dim i, kq, r As Long
On Error Resume Next
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

With cn
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
ThisWorkbook.FullName _
& ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"";"
.Open
End With

rs.Open sql, cn
Application.ScreenUpdating = False
ActiveSheet.Range("A5:XX10000").ClearContents

For i = 0 To rs.Fields.Count - 1
Range("A5").Offset(0, i).Value = rs.Fields(i).Name
Next

kq = Range("A6").CopyFromRecordset(rs)
Application.ScreenUpdating = True
rs.Close: cn.Close: Set rs = Nothing: Set cn = Nothing
End Sub
Như vậy khi sửa ConnectionString như nào để có thể kết nối được với SQL. Mọi người giúp em với ạ

 

[Nguyễn Duy Tuân]

Bạn tham khảo Add-in A-Tools theo link video này. Có thể dùng hàm trên worksheet để nhận dữ liệu qua mạng hoặc lập trình.

 

[phuongnam366377]

Chào mọi người cho mình hỏi một vấn đề với ạ! Mình muốn kết nối SQL với excel qua adodb thông qua IP ( có thể kết nối từ việt nam thông qua máy chủ sql đặt ở bên nhật hàn gì đó ). Và xem số IP trên SQL chỗ nào ạ!
Sub run_sql(sql)
Dim i, kq, r As Long
On Error Resume Next
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

With cn
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
ThisWorkbook.FullName _
& ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"";"
.Open
End With

rs.Open sql, cn
Application.ScreenUpdating = False
ActiveSheet.Range("A5:XX10000").ClearContents

For i = 0 To rs.Fields.Count - 1
Range("A5").Offset(0, i).Value = rs.Fields(i).Name
Next

kq = Range("A6").CopyFromRecordset(rs)
Application.ScreenUpdating = True
rs.Close: cn.Close: Set rs = Nothing: Set cn = Nothing
End Sub
Như vậy khi sửa ConnectionString như nào để có thể kết nối được với SQL. Mọi người giúp em với ạ

Nếu bên Nhật, Mỹ hay đâu đó mà họ đang cài SQL Ms Server thì hãy thử Tools sau của tôi xem tình hình sao ... ( Lưu Ý Tools đang thử nghiệm )

Mô tả chi tiết link sau

Trình Tạo SQL và truy vấn Cơ Sở Dữ Liệu SQLite - SQLite Builder

1/ Sau một thời gian nghiên cứu tham khảo từ VBA To VB6 To Delphi ... Cách truy vấn cơ sở dữ liệu SQLite thì Mạnh Viết Tools SQLite build ( là bản Demo chưa hoàn thiện đang thử nghiệm ) Úp tặng cho Bạn nào có như cầu sử dụng Build SQL và truy vấn cơ sở dữ liệu SQLite 2/ đang trong quá trình...

www.giaiphapexcel.com

Demos thử nghiệm mới nhất link sau ( Lưu ý sau khoãng thời gian nhất định file link sau sẻ Delete )

1/ hổ trợ truy xuất data từ SQL Ms Server
2/ truy xuất dữ liệu SQLite + Access + Excel
3/ Hổ trợ tìm kiếm file theo Explorer Folder + Open path

SQLForDataBase.rar

drive.google.com