VBA Nâng cao: Ứng dụng Mảng, SQL trong Excel và VBA

Nguyễn Minh Hào

https://drive.google.com/file/d/1BxwIT5wOI49PVAlyQqF39bqYMCfKsrV7/view

file access này khoá thì không lấy dc dữ liệu còn mở thì lấy được mong thầy giúp đỡ ạ

Tuấn Ba [Chuyên gia]

Bạn có để pass vẫn lấy được dữ liệu đó, bạn xem lại đường dẫn của bạn có dấu tiếng việt không nhé.

Nguyễn Minh Hào

0983470546

Trợ Giảng Gitiho

Dạ vâng không biết Gitiho có thể giúp đỡ gì cho Anh/Chị ạ?

Nguyễn Minh Hào

Option Explicit
Function QuerySQL(SQLQuery As String, spart As String, Optional Hr As Boolean = False, Optional Pasword As String = "123")
Dim Cnn As Object, lrs As Object, SQLQuyery As String, Path As String, Ketnoi As Boolean
Set Cnn = CreateObject("ADODB.Connection")
Set lrs = CreateObject("ADODB.Recordset")
If (CheckPart(spart) = "EXCEL") Then
If Val(Application.Version) > 12 Then
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & spart & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=0"";"
Else
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spart & ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=0"";"
End If
ElseIf (CheckPart(spart) = "ACCESS") Then
If Val(Application.Version) > 12 Then
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & spart & ";Persist Security Info=False; Jet OLEDB:Database Password=" & Pasword & ";"
Else
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spart & ";Persist Security Info=False; Jet OLEDB:Database Password=" & Pasword & ";"
End If
Else
Cnn.ConnectionString = spart
End If
Ketnoi = False
On Error GoTo ThoatKN
Cnn.Open
Ketnoi = True
GoTo ThoatKN
ThoatKN:
If (Ketnoi) Then
On Error GoTo ThoatLrs
lrs.Open SQLQuery, Cnn
Dim arr As Variant
arr = lrs.Getrows
GoTo ThoatLrs
ThoatLrs:
If IsArray(arr) Then
Dim Row As Long, Col As Long, i As Long, j As Long, kq As Variant, rs As Integer
If Hr = True Then
rs = 1
Else
rs = 0
End If
Row = UBound(arr, 2) + rs
Col = UBound(arr, 1)
ReDim kq(Row + 1 + rs, Col + rs)
For i = 0 To Row
For j = 0 To Col
If (i = 0 And Hr = True) Then
kq(0, j) = lrs.Fields(j).Name
Else
kq(i, j) = arr(j, i - rs)
End If
Next j
Next i
QuerySQL = kq
lrs.Close: Cnn.Close
Erase arr: Erase kq
Else
QuerySQL = "Không có d" & ChrW(7919) & " li" & ChrW(7879) & "u"
End If
Else
QuerySQL = "Không có k" & ChrW(7871) & "t n" & ChrW(7889) & "i"
End If
End Function
Function QuerySQLExecute(SQLQuery As String, spart As String, Optional loi As Boolean = False, Optional Pasword As String = "123") As Boolean
Dim Cnn As Object, cmd As Object, SQLQuyery As String, Path As String, Ketnoi As Boolean, Thongbao As String
Set Cnn = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
If (CheckPart(spart) = "EXCEL") Then
If Val(Application.Version) > 12 Then
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & spart & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=0"";"
Else
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spart & ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=0"";"
End If
ElseIf (CheckPart(spart) = "ACCESS") Then
If Val(Application.Version) > 12 Then
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & spart & ";Persist Security Info=False; Jet OLEDB:Database Password=" & Pasword & ";"
Else
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spart & ";Persist Security Info=False; Jet OLEDB:Database Password=" & Pasword & ";"
End If
Else
Cnn.ConnectionString = spart
End If
Ketnoi = False
On Error GoTo ThoatKN
Cnn.Open
Ketnoi = True
GoTo ThoatKN
ThoatKN:
If (Ketnoi) Then
On Error GoTo Err
With cmd
.ActiveConnection = Cnn
.CommandText = SQLQuery
.Execute
End With
Thongbao = "Th" & ChrW(7921) & "c hi" & ChrW(7879) & "n th" & ChrW(224) & "nh c" & ChrW(244) & "ng"
' If Loi = True Then MsgBoxUni Thongbao, vbInformation, "Thông báo"
QuerySQLExecute = True
Exit Function
GoTo Err
End If
Err:
If loi = True Then
If (InStr(Err.Description, "The duplicate key value is")) Then
Thongbao = "Trùng khoá chính"
MsgBox Thongbao, vbExclamation, "Thông Báo Error"
ElseIf (Err.Description = "The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.") Then
Thongbao = "Tr" & ChrW(249) & "ng kho" & ChrW(225) & " ch" & ChrW(237) & "nh kh" & ChrW(244) & "ng th" & ChrW(7875) & " th" & ChrW(234) & "m"
MsgBox Thongbao
ElseIf (Err.Description = "Number of query values and destination fields are not the same.") Then
Thongbao = "S" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng tr" & ChrW(432) & ChrW(7901) & "ng truy v" & ChrW(7845) & "n v" & ChrW(224) & " tr" & ChrW(432) & ChrW(7901) & "ng " & ChrW(273) & ChrW(237) & "ch kh" & ChrW(244) & "ng b" & ChrW(7857) & "ng nhau"
MsgBox Thongbao, vbExclamation, "Thông Báo Error"
ElseIf (InStr(Err.Description, "The duplicate key value is")) Then
Thongbao = "Tr" & ChrW(249) & "ng kho" & ChrW(225) & " ch" & ChrW(237) & "nh kh" & ChrW(244) & "ng th" & ChrW(7875) & " th" & ChrW(234) & "m"
MsgBox Thongbao, vbExclamation, "Thông Báo Error"
Else
MsgBox Err.Description
End If
End If
QuerySQLExecute = False
End Function
Function CheckPart(s As String) As String
Dim kq As String, GetName As String
GetName = Split(s, ".")(UBound(Split(s, ".")))

Option Explicit
Function QuerySQL(SQLQuery As String, spart As String, Optional Hr As Boolean = False, Optional Pasword As String = "123")
Dim Cnn As Object, lrs As Object, SQLQuyery As String, Path As String, Ketnoi As Boolean
Set Cnn = CreateObject("ADODB.Connection")
Set lrs = CreateObject("ADODB.Recordset")
If (CheckPart(spart) = "EXCEL") Then
If Val(Application.Version) > 12 Then
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & spart & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=0"";"
Else
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spart & ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=0"";"
End If
ElseIf (CheckPart(spart) = "ACCESS") Then
If Val(Application.Version) > 12 Then
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & spart & ";Persist Security Info=False; Jet OLEDB:Database Password=" & Pasword & ";"
Else
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spart & ";Persist Security Info=False; Jet OLEDB:Database Password=" & Pasword & ";"
End If
Else
Cnn.ConnectionString = spart
End If
Ketnoi = False
On Error GoTo ThoatKN
Cnn.Open
Ketnoi = True
GoTo ThoatKN
ThoatKN:
If (Ketnoi) Then
On Error GoTo ThoatLrs
lrs.Open SQLQuery, Cnn
Dim arr As Variant
arr = lrs.Getrows
GoTo ThoatLrs
ThoatLrs:
If IsArray(arr) Then
Dim Row As Long, Col As Long, i As Long, j As Long, kq As Variant, rs As Integer
If Hr = True Then
rs = 1
Else
rs = 0
End If
Row = UBound(arr, 2) + rs
Col = UBound(arr, 1)
ReDim kq(Row + 1 + rs, Col + rs)
For i = 0 To Row
For j = 0 To Col
If (i = 0 And Hr = True) Then
kq(0, j) = lrs.Fields(j).Name
Else
kq(i, j) = arr(j, i - rs)
End If
Next j
Next i
QuerySQL = kq
lrs.Close: Cnn.Close
Erase arr: Erase kq
Else
QuerySQL = "Không có d" & ChrW(7919) & " li" & ChrW(7879) & "u"
End If
Else
QuerySQL = "Không có k" & ChrW(7871) & "t n" & ChrW(7889) & "i"
End If
End Function
Function QuerySQLExecute(SQLQuery As String, spart As String, Optional loi As Boolean = False, Optional Pasword As String = "123") As Boolean
Dim Cnn As Object, cmd As Object, SQLQuyery As String, Path As String, Ketnoi As Boolean, Thongbao As String
Set Cnn = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
If (CheckPart(spart) = "EXCEL") Then
If Val(Application.Version) > 12 Then
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & spart & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=0"";"
Else
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spart & ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=0"";"
End If
ElseIf (CheckPart(spart) = "ACCESS") Then
If Val(Application.Version) > 12 Then
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & spart & ";Persist Security Info=False; Jet OLEDB:Database Password=" & Pasword & ";"
Else
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spart & ";Persist Security Info=False; Jet OLEDB:Database Password=" & Pasword & ";"
End If
Else
Cnn.ConnectionString = spart
End If
Ketnoi = False
On Error GoTo ThoatKN
Cnn.Open
Ketnoi = True
GoTo ThoatKN
ThoatKN:
If (Ketnoi) Then
On Error GoTo Err
With cmd
.ActiveConnection = Cnn
.CommandText = SQLQuery
.Execute
End With
Thongbao = "Th" & ChrW(7921) & "c hi" & ChrW(7879) & "n th" & ChrW(224) & "nh c" & ChrW(244) & "ng"
' If Loi = True Then MsgBoxUni Thongbao, vbInformation, "Thông báo"
QuerySQLExecute = True
Exit Function
GoTo Err
End If
Err:
If loi = True Then
If (InStr(Err.Description, "The duplicate key value is")) Then
Thongbao = "Trùng khoá chính"
MsgBox Thongbao, vbExclamation, "Thông Báo Error"
ElseIf (Err.Description = "The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.") Then
Thongbao = "Tr" & ChrW(249) & "ng kho" & ChrW(225) & " ch" & ChrW(237) & "nh kh" & ChrW(244) & "ng th" & ChrW(7875) & " th" & ChrW(234) & "m"
MsgBox Thongbao
ElseIf (Err.Description = "Number of query values and destination fields are not the same.") Then
Thongbao = "S" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng tr" & ChrW(432) & ChrW(7901) & "ng truy v" & ChrW(7845) & "n v" & ChrW(224) & " tr" & ChrW(432) & ChrW(7901) & "ng " & ChrW(273) & ChrW(237) & "ch kh" & ChrW(244) & "ng b" & ChrW(7857) & "ng nhau"
MsgBox Thongbao, vbExclamation, "Thông Báo Error"
ElseIf (InStr(Err.Description, "The duplicate key value is")) Then
Thongbao = "Tr" & ChrW(249) & "ng kho" & ChrW(225) & " ch" & ChrW(237) & "nh kh" & ChrW(244) & "ng th" & ChrW(7875) & " th" & ChrW(234) & "m"
MsgBox Thongbao, vbExclamation, "Thông Báo Error"
Else
MsgBox Err.Description
End If
End If
QuerySQLExecute = False
End Function
Function CheckPart(s As String) As String
Dim kq As String, GetName As String
GetName = Split(s, ".")(UBound(Split(s, ".")))

nhờ thầy xem dùM. EM THÊM MẬT KHẨU VÀO THÌ K LẤY DƯỢC DỮ LIỆU CÒN BỎ MẬT KHẨU LẠI LẤY DƯỢC DỮ LIỆU. THẦY CÓ THỂ LÀM VI DEO HƯỚNG DẪN GIÚP EM ẠOption Explicit
Function QuerySQL(SQLQuery As String, spart As String, Optional Hr As Boolean = False, Optional Pasword As String = "123")
Dim Cnn As Object, lrs As Object, SQLQuyery As String, Path As String, Ketnoi As Boolean
Set Cnn = CreateObject("ADODB.Connection")
Set lrs = CreateObject("ADODB.Recordset")
If (CheckPart(spart) = "EXCEL") Then
If Val(Application.Version) > 12 Then
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & spart & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=0"";"
Else
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spart & ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=0"";"
End If
ElseIf (CheckPart(spart) = "ACCESS") Then
If Val(Application.Version) > 12 Then
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & spart & ";Persist Security Info=False; Jet OLEDB:Database Password=" & Pasword & ";"
Else
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spart & ";Persist Security Info=False; Jet OLEDB:Database Password=" & Pasword & ";"
End If
Else
Cnn.ConnectionString = spart
End If
Ketnoi = False
On Error GoTo ThoatKN
Cnn.Open
Ketnoi = True
GoTo ThoatKN
ThoatKN:
If (Ketnoi) Then
On Error GoTo ThoatLrs
lrs.Open SQLQuery, Cnn
Dim arr As Variant
arr = lrs.Getrows
GoTo ThoatLrs
ThoatLrs:
If IsArray(arr) Then
Dim Row As Long, Col As Long, i As Long, j As Long, kq As Variant, rs As Integer
If Hr = True Then
rs = 1
Else
rs = 0
End If
Row = UBound(arr, 2) + rs
Col = UBound(arr, 1)
ReDim kq(Row + 1 + rs, Col + rs)
For i = 0 To Row
For j = 0 To Col
If (i = 0 And Hr = True) Then
kq(0, j) = lrs.Fields(j).Name
Else
kq(i, j) = arr(j, i - rs)
End If
Next j
Next i
QuerySQL = kq
lrs.Close: Cnn.Close
Erase arr: Erase kq
Else
QuerySQL = "Không có d" & ChrW(7919) & " li" & ChrW(7879) & "u"
End If
Else
QuerySQL = "Không có k" & ChrW(7871) & "t n" & ChrW(7889) & "i"
End If
End Function
Function QuerySQLExecute(SQLQuery As String, spart As String, Optional loi As Boolean = False, Optional Pasword As String = "123") As Boolean
Dim Cnn As Object, cmd As Object, SQLQuyery As String, Path As String, Ketnoi As Boolean, Thongbao As String
Set Cnn = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
If (CheckPart(spart) = "EXCEL") Then
If Val(Application.Version) > 12 Then
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & spart & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=0"";"
Else
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spart & ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=0"";"
End If
ElseIf (CheckPart(spart) = "ACCESS") Then
If Val(Application.Version) > 12 Then
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & spart & ";Persist Security Info=False; Jet OLEDB:Database Password=" & Pasword & ";"
Else
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spart & ";Persist Security Info=False; Jet OLEDB:Database Password=" & Pasword & ";"
End If
Else
Cnn.ConnectionString = spart
End If
Ketnoi = False
On Error GoTo ThoatKN
Cnn.Open
Ketnoi = True
GoTo ThoatKN
ThoatKN:
If (Ketnoi) Then
On Error GoTo Err
With cmd
.ActiveConnection = Cnn
.CommandText = SQLQuery
.Execute
End With
Thongbao = "Th" & ChrW(7921) & "c hi" & ChrW(7879) & "n th" & ChrW(224) & "nh c" & ChrW(244) & "ng"
' If Loi = True Then MsgBoxUni Thongbao, vbInformation, "Thông báo"
QuerySQLExecute = True
Exit Function
GoTo Err
End If
Err:
If loi = True Then
If (InStr(Err.Description, "The duplicate key value is")) Then
Thongbao = "Trùng khoá chính"
MsgBox Thongbao, vbExclamation, "Thông Báo Error"
ElseIf (Err.Description = "The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.") Then
Thongbao = "Tr" & ChrW(249) & "ng kho" & ChrW(225) & " ch" & ChrW(237) & "nh kh" & ChrW(244) & "ng th" & ChrW(7875) & " th" & ChrW(234) & "m"
MsgBox Thongbao
ElseIf (Err.Description = "Number of query values and destination fields are not the same.") Then
Thongbao = "S" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng tr" & ChrW(432) & ChrW(7901) & "ng truy v" & ChrW(7845) & "n v" & ChrW(224) & " tr" & ChrW(432) & ChrW(7901) & "ng " & ChrW(273) & ChrW(237) & "ch kh" & ChrW(244) & "ng b" & ChrW(7857) & "ng nhau"
MsgBox Thongbao, vbExclamation, "Thông Báo Error"
ElseIf (InStr(Err.Description, "The duplicate key value is")) Then
Thongbao = "Tr" & ChrW(249) & "ng kho" & ChrW(225) & " ch" & ChrW(237) & "nh kh" & ChrW(244) & "ng th" & ChrW(7875) & " th" & ChrW(234) & "m"
MsgBox Thongbao, vbExclamation, "Thông Báo Error"
Else
MsgBox Err.Description
End If
End If
QuerySQLExecute = False
End Function
Function CheckPart(s As String) As String
Dim kq As String, GetName As String
GetName = Split(s, ".")(UBound(Split(s, ".")))

nhờ thầy xem dùM. EM THÊM MẬT KHẨU VÀO THÌ K LẤY DƯỢC DỮ LIỆU CÒN BỎ MẬT KHẨU LẠI LẤY DƯỢC DỮ LIỆU. THẦY CÓ THỂ LÀM VI DEO HƯỚNG DẪN GIÚP EM Ạ

Tuấn Ba [Chuyên gia]

Bạn lấy nguyên code này và thử

Function QuerySQL(SQLQuery As String, spart As String, Optional Hr As Boolean = False, Optional Pasword As String = “”)

gọi hàm arr = QuerySQL("select * from abc",duongdan, true, “abc”)

Nguyễn Minh Hào

Thầy hướng dẫn em code đặt mất khẩu cho file access và lấy dữ liệu từ file access đang khoá với ạ. em cảm ơn

Tuấn Ba [Chuyên gia]

Sub RunSQLQuery()
Dim SQLQuyery As String, dc As Long, kq As Variant
dc = TEAMCDPS.Range("A" & TEAMCDPS.Rows.Count).End(xlUp).Row
If dc >= 2 Then TEAMCDPS.Range("A2:ADO" & dc).ClearContents
kq = QuerySQL("select * from data", "D:\desktop C\Phammemketoan\Proexcel\Bunoca\Bunoca.ACCDB", True, "LUONGGIAMINH")
If IsArray(kq) Then
TEAMCDPS.Range("A3").Resize(UBound(kq, 1), UBound(kq, 2) + 1) = kq
Else
TEAMCDPS.Range("A3").Value = kq
End If
End Sub
bạn làm như sau

${"id":83343,"crm_contact_id":45623,"name":"Nguy\u1ec5n Minh H\u00e0o","email":"minhao1404@gmail.com","status":1,"refresh_login":0,"password_reset":1,"last_update_password":"2020-02-18 15:45:27","confirmation_code":"bd742f90b75dd339347726ba60be03f1","confirmed":1,"session_id":null,"enable_api":0,"access_key":null,"created_at":"2020-02-13T16:16:02.000000Z","updated_at":"2024-09-20T23:01:12.000000Z","deleted_at":null,"unit_name":null,"grade":0,"avatar_disk":"","avatar_path":"","gender":0,"birthday":null,"position":null,"achievement":null,"full_name":"Nguy\u1ec5n Minh H\u00e0o","address":"31 Tr\u1ea7n Ph\u00fa, Th\u1ecb Tr\u1ea5n B\u1ed3ng S\u01a1n, Huy\u1ec7n Ho\u00e0i Nh\u01a1n ,T\u1ec9nh B\u00ecnh \u0110\u1ecbnh","status_text":"","user_type":"","social_facebook":"","social_google":"","social_twitter":"","social_linkedin":"","cover_path":"","idvg_id":0,"facebook_id":0,"phone":"0584455622","become_teacher":0,"primary_wallet":0,"secondary_wallet":0,"wallet_type":"","wallet_payment":"","loyalty_point":99369,"google_id":"111828541898166780926","github_id":null,"twitter_id":null,"linkedin_id":null,"bitbucket_id":null,"access_token_onedrive":"","system_status":"done","account_seeding":0,"path_cv":null,"enable_unsubcribe":0,"clap":0,"view":23,"email_invalid":0,"type_email_invalid":null,"email_unsubcriber":0,"email_bounce":0,"email_compliant":0,"contract_business_name":null,"contract_number":null,"contract_date":null,"contract_delegate":null,"contract_address":null,"contract_account_number":null,"contract_bank":null,"source":null,"login_mobile":0,"gitiho_user":1,"avatar":"https:\/\/gitiho.com\/images\/avatar\/folder_83\/nguyen-hao.png","link_profile":"https:\/\/gitiho.com\/u\/83343-nguyen-minh-hao","vip_account":null,"roles":[]}$

Nguyễn Minh Hào

nhờ thầy xem dùM. EM THÊM MẬT KHẨU VÀO THÌ K LẤY DƯỢC DỮ LIỆU CÒN BỎ MẬT KHẨU LẠI LẤY DƯỢC DỮ LIỆU. THẦY CÓ THỂ LÀM VI DEO HƯỚNG DẪN GIÚP EM Ạ

nntien

Ad có thể làm video chia sẻ cách tạo form đăng nhập và phân quyền vào SQL sever ko?

Tuấn Ba [Chuyên gia]

Phân quyền vba với trường hợp này hơi khó, cái này phải sử dụng cách tạo db trong sqlsever rồi mới sử lý được.

Đánh giá của học viên

5/5

3 Đánh giá và nhận xét

100 %
0 %
0 %
0 %
0 %

Nguyen thi huyen trang

09:41 12/11/2021

Khóa học hay và bổ ích, giúp cho công việc của mình rất nhiều ạ. Phần array giúp mình có thể làm việc được với dữ liệu và các điều kiện trong nhiều cột. Có thể thay thế một số công thức advanced filter hay sumifs với các điều kiện về thời gian!, nhóm hàng khi sử dụng dictionary

Duc Anh Nguyen

04:39 25/08/2021

Khóa học rất hữu ích.

IT_9

12:46 06/08/2021

Khoá học rất hay và ý nghĩa, phục vụ nhiều những vấn đề mở rộng của VBA, Excel để xử lý các bài toán thực tế. Giảng viên Thầy Tuấn Ba rất nhiệt tình và hỗ trợ học viên. Mình xin gửi lời cảm ơn tới khoá học, giảng viên của Gitiho đặc biệt là Thầy Tuấn Ba. Trân trọng!

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

VBAG02 - Ứng dụng Mảng, SQL và các Công cụ Nâng cao khác trong Excel và VBA

Phần 1: Ứng dụng SQL trong Excel và VBA

Phần 2: Ứng dụng Mảng trong VBA và Excel

Phần 3: Kết hợp Mảng, Function để tạo Function cho SQL trên Excel

Phần 4: Các Ứng dụng Nâng cao khác bằng việc sử dụng Dictionary trong VBA

Phần 5: Sử dụng SQL

Tại sao bạn nên chọn khóa học tại Gitiho?

Mục tiêu khi tham gia khóa học?

Ai có thể tham gia khóa học?