Kết nối với network SQL server dùng ADo

[HuyNS]

Hi all,

Mình đang cần kết nối giữa excel với 1 file .mdf trên máy khác trong cùng Network. Mình dùng thử code sau (PC2008 là tên máy tính mình muốn kết nối):

Sub test()
    DBConn1 "PC2008\SQLEXPRESS", "MF_DB_be"
End Sub

Public Function DBConn1(strServer As String, strDb As String) As Boolean

Dim objConn as new ADODB.Connection

On Error GoTo ErrHandler

If objConn.State = adStateOpen Then
    objConn.Close
End If
  
  With objConn
     ' Set connection properties
      .ConnectionTimeout = 0
      .Provider = "SQLOLEDB.1"
      .Properties("Data Source") = strServer
      .Properties("Initial Catalog") = strDb
      .Properties("Integrated Security") = SSPI
      .Properties("Persist Security Info") = False
      .Open
      
  End With
  DBConn1 = True
  Exit Function
  
ErrHandler:
   DBConn1 = False
   MsgBox Err.number & vbCrLf & Err.Description, vbCritical, "Error"
   
End Function

Mình thử debug code này thì đến dòng .Open thấy nó chạy đơ luôn excel. Cao thủ nào biết chỉ giáo mình với nhé!

Cảm ơn tất cả mọi người

 

[xì tin]

Hi all,

Mình đang cần kết nối giữa excel với 1 file .mdf trên máy khác trong cùng Network. Mình dùng thử code sau (PC2008 là tên máy tính mình muốn kết nối):

Sub test()
    DBConn1 "PC2008\SQLEXPRESS", "MF_DB_be"
End Sub

Public Function DBConn1(strServer As String, strDb As String) As Boolean

Dim objConn as new ADODB.Connection

On Error GoTo ErrHandler

If objConn.State = adStateOpen Then
    objConn.Close
End If
  
  With objConn
     ' Set connection properties
      .ConnectionTimeout = 0
      .Provider = "SQLOLEDB.1"
      .Properties("Data Source") = strServer
      .Properties("Initial Catalog") = strDb
      .Properties("Integrated Security") = SSPI
      .Properties("Persist Security Info") = False
      .Open
      
  End With
  DBConn1 = True
  Exit Function
  
ErrHandler:
   DBConn1 = False
   MsgBox Err.number & vbCrLf & Err.Description, vbCritical, "Error"
   
End Function

Mình thử debug code này thì đến dòng .Open thấy nó chạy đơ luôn excel. Cao thủ nào biết chỉ giáo mình với nhé!

Cảm ơn tất cả mọi người

Cài hẳn cái SQL Server vào, đưa cái dữ liệu đó lên rồi tùy ý dùng cho nó đỡ phức tạp.

 

[HuyNS]

Vấn đề là mình cần làm cho nhiều người dùng để cập nhật dữ liệu từ Excel vào Database chung nên không thể giải quyết như vậy được. Hic.
Thanks bạn nhiều nhé!

 

[Hau151978]

SQL Server mình không biết nhưng máy tính mạng thì phải có "\\" ở đầu chứ nhỉ?