Tôi lại ít khi quan tâm mấy cái đó ... với tôi nó quá xa vời và tôi ko có hiểu sâu xa bản chất của nó làm gì
Public Sub GetData(StrPath, DataRange, Des())
Dim ObjConn As Object, RS As Object, StrRequest As String
Set RS = CreateObject("ADODB.Recordset")
Set ObjConn = GetExcelConnection(StrPath)
StrRequest = "SELECT * From " & DataRange
RS.Open StrRequest, ObjConn, 3, 1
Des = TransArr(RS.Getrows)
RS.Close
Set ObjConn = Nothing
Set RS = Nothing
End Sub
Public Function GetExcelConnection(ByVal Path As String)
Dim StrConn As String, ObjConn As Object, Pro As String, Ext As String
Set ObjConn = CreateObject("ADODB.Connection")
Pro = "Provider=Microsoft.ACE.OLEDB.12.0;"
Ext = ";Extended Properties=""Excel 8.0;"
StrConn = Pro & "Data Source=" & Path & Ext & "HDR=No" & ";IMEX=1"";"
ObjConn.Open StrConn
Set GetExcelConnection = ObjConn
End Function
Public Function TransArr(sArr As Variant) As Variant
Dim TmpArr As Variant, x As Long, y As Long
ReDim TmpArr(UBound(sArr, 2), UBound(sArr, 1))
For x = 0 To UBound(sArr, 2)
For y = 0 To UBound(sArr, 1)
TmpArr(x, y) = sArr(y, x)
Next y
Next x
TransArr = TmpArr
End FunctionRem ========== Luu Y su dung
Rem 1/ Tools\References\Browse..\VBLibraryLoad.exe ==> Su dung Cho RPC As New VBLibraryLoad.cCOM
Rem ==========
Public RPC As New VBLibraryLoad.cCOM
Public LoadCOM As Object, test As Long
Rem ========== Su dung Cho Function
Public Function GetExcelConnection(ByVal Path As String)
Set LoadCOM = RPC.NewInstance("dllvb6.clsMain")
Set GetExcelConnection = LoadCOM. GetExcelConnection(Path)
If Not LoadCOM Is Nothing Then Set LoadCOM = Nothing
End Function
Rem ========== Su dung Cho Sub
Public Sub GetData(StrPath, DataRange, Des())
Set LoadCOM = RPC.NewInstance("dllvb6.clsMain")
Call LoadCOM.GetData(StrPath, DataRange, Des())
If Not LoadCOM Is Nothing Then Set LoadCOM = Nothing
End SubTôi nghĩ thế này .. còn sâu xa bản chất của nó sao thì tôi ko có biết
function IsAppInRun(RunName: string): WordBool; stdcall;
Var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
//Reg := TRegistry.Create(KEY_WRITE OR KEY_WOW64_64KEY);
with Reg do
begin
// RootKey := HKEY_LOCAL_MACHINE;
RootKey := HKEY_CURRENT_USER;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', FALSE);
//OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
Result := ValueExists(RunName);
CloseKey;
Free;
end;
end;Public Function IsAppInRun(ByRef AppName As String) As Boolean
Rem Public Function IsAppInRun(ByVal AppName As String) As Boolean
Rem Neu key Ton tai = True ; Ko ton tai = Flase
IsAppInRun = stdCallW(mDLL, "IsAppInRun", vbLong, AppName) ''Su dung Tot
End FunctionNói thật lòng là nhưng cái bạn nêu tôi xem ko hiểu gì cả vì nó vượt quá xa sự hiểu biết của tôi
Private Sub Class_Initialize()
mDLL = App.Path & "\VBLibrary.dll"
End Sub
Anh có thể gợi ý một vài từ khoá để tìm hiểu làm được giao thức tcp/ip này ko ạ
biết ngay mà ...
