Kết nối Excel với SQL Server

[taikhoanchoigame992000]

Hi cac Pro!
Hiện mình đang viết VBA cho việc kết nối giữa excel với SQL Server nhưng quá trình kết nối mình có một thắc mắc trong câu lệnh kết nối như sau:
strConn = "Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=Test ;User ID=sa;Password=AAA ;"
thì mục data source các Pro có thể chỉ giúp mình thay đổi động theo dữ liệu mình nhập tại 1 ô nào đó được không?
Ví dụ: ô A1 mình nhập liệu IP như sau: 192.168.1.101 thì lúc này data source thay đổi thành
strConn = "Provider=SQLOLEDB;Data Source=192.168.1.101;Initial Catalog=Test ;User ID=sa;Password=AAA ;"
Cảm ơn

 

[Hai Lúa Miền Tây]

Hi cac Pro!
Hiện mình đang viết VBA cho việc kết nối giữa excel với SQL Server nhưng quá trình kết nối mình có một thắc mắc trong câu lệnh kết nối như sau:
strConn = "Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=Test ;User ID=sa;Password=AAA ;"
thì mục data source các Pro có thể chỉ giúp mình thay đổi động theo dữ liệu mình nhập tại 1 ô nào đó được không?
Ví dụ: ô A1 mình nhập liệu IP như sau: 192.168.1.101 thì lúc này data source thay đổi thành
strConn = "Provider=SQLOLEDB;Data Source=192.168.1.101;Initial Catalog=Test ;User ID=sa;Password=AAA ;"
Cảm ơn

Nối chuỗi nhé:

strConn = "Provider=SQLOLEDB;Data Source=" & ThamChieuDenCell & ";Initial Catalog=Test ;User ID=sa;Password=AAA ;"

 

[tigertiger]

Hi cac Pro!
Hiện mình đang viết VBA cho việc kết nối giữa excel với SQL Server nhưng quá trình kết nối mình có một thắc mắc trong câu lệnh kết nối như sau:
strConn = "Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=Test ;User ID=sa;Password=AAA ;"
thì mục data source các Pro có thể chỉ giúp mình thay đổi động theo dữ liệu mình nhập tại 1 ô nào đó được không?
Ví dụ: ô A1 mình nhập liệu IP như sau: 192.168.1.101 thì lúc này data source thay đổi thành
strConn = "Provider=SQLOLEDB;Data Source=192.168.1.101;Initial Catalog=Test ;User ID=sa;Password=AAA ;"
Cảm ơn

thử
strConn = "Provider=SQLOLEDB;Data Source=" & Range("A1").Value & ";Initial Catalog=Test ;User ID=sa;Password=AAA ;"

hoặc chỉ ra cụ thể (nếu là Sheet1)
Sheet1.Range("A1").Value

 

[Hai Lúa Miền Tây]

thử
strConn = "Provider=SQLOLEDB;[B]Data Source=" & Range("A1").Value & "[/B];Initial Catalog=Test ;User ID=sa;Password=AAA ;"

hoặc chỉ ra cụ thể (nếu là Sheet1)
Sheet1.Range("A1").Value

Nên bỏ thẻ bờ đi nhé bạn.

 

[tigertiger]

Nên bỏ thẻ bờ đi nhé bạn.

thẻ bờ là gì nhỉ , tôi không hiểu HLMT?
ah, tôi đã thấy và bỏ đây

 

[Hai Lúa Miền Tây]

thẻ bờ là gì nhỉ , tôi không hiểu HLMT?
ah, tôi đã thấy và bỏ đây

Thẻ bờ ở hình sau nè bạn.

 

[taikhoanchoigame992000]

Mình làm theo và đã đúng. Cảm ơn mọi người nhé.
strConn = "Provider=SQLOLEDB;Data Source=" & sheet1.Range("A1").Value & ";Initial Catalog=Test ;User ID=sa;Password=AAA ;"

 

[hoahuongduong1986]

Mình làm theo và đã đúng. Cảm ơn mọi người nhé.
strConn = "Provider=SQLOLEDB;Data Source=" & sheet1.Range("A1").Value & ";Initial Catalog=Test ;User ID=sa;Password=AAA ;"

Mình cũng đang muốn làm chạy SQL trên File Excel giống bạn. Bạn có thể cho mình tham khảo Code của bạn không, trước mình làm thử mà mãi chưa ra. Mình cảm ơn.

 

[taikhoanchoigame992000]

Mình cũng đang muốn làm chạy SQL trên File Excel giống bạn. Bạn có thể cho mình tham khảo Code của bạn không, trước mình làm thử mà mãi chưa ra. Mình cảm ơn.

Bạn làm như sau:
Sub ketnoi ()
Public conn As Object
Public sRun As Object
Public strConn As Object
Set conn = CreateObject("ADODB.Connection")
Set sRun = CreateObject("ADODB.Recordset")
Set strConn = CreateObject("ADODB.Connection")
strConn = "Provider=SQLOLEDB;Data Source=127.0.0.1 ;Initial Catalog=AÂ ;User ID=sa;Password=1234
conn.Open strConn
.
.
.

sRun.Close: conn.Close
End Sub