maytinhvp01
Thành viên thường trực
- Tham gia
- 27/7/13
- Bài viết
- 390
- Được thích
- 179
Cho mình hỏi là với code sau:
Kết thúc sub rồi mà không đóng kết nối thì có ảnh hưởng tới lần kết nối khác không ( cùng tới 1 file.
các sự kiện gần như kết nối tới file excel là liên tục.
Mã:
Private Sub Form_Load()
Dim cn As Object
Dim rs As Object
Dim tt As String
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Provider = "Microsoft.ACE.OLEDB.12.0"
cn.ConnectionString = "Data Source= " & App.Path & "/KH.xlsm; Extended Properties=""Excel 12.0;HDR=Yes;"";"
cn.CursorLocation = 3
cn.Open
rs.Open "SELECT * FROM [DM$] WHERE Nh_sx is not null", cn, 3, 1
Set DataGrid1.DataSource = rs
End Sub
Mã:
cnn.Close