Kiều Mạnh
I don't program, I beat code into submission!!!
- Tham gia
- 9/6/12
- Bài viết
- 5,541
- Được thích
- 4,125
- Giới tính
- Nam
Sau gần 2 năm mò code nghiên cứu cuối cùng Mạnh cũng đã thực hiện thành công Lấy dữ liệu qua Internet theo Phương Thức TCPIP
Mọi sự bắt đầu từ thớt sau
www.giaiphapexcel.com
1/ Code hiện tại đang viết mọi cái trên VB6 để làm quen cách thức hoạt động của nó Khi nào mạnh chuyển Qua Delphi thành công sẻ úp tặng cho ai đó cần mà sử dụng không giới hạn
2/ Xem qua Video Demo
3/ Code mở kết nối ADODB Từ Client tới Server rất gần gủi Y trang trên VBA ... ta chỉ cần khai báo kết nối tới Server là xong
Cách 1
Cách 2
Cách 3
Cách 4
ta có thể viết Hàm mảng trên Cells hay gì đó tùy thích cũng được như mô tả trên Link sau qua Thớt đó sẻ hiểu thêm
Bài số #39
www.giaiphapexcel.com
Mọi sự bắt đầu từ thớt sau
Lập Trình Excel Server Và Client - Phương Thức TCP/IP
I/ Chuẩn bị Control VB6 để tiến hành lập trình VBA : Server & Client - Phương Thức TCP/IP 1/ Nếu Bạn nào đã cài đặt VB6 trên máy thì bỏ qua Mục I này 2/ Nếu Bạn nào chưa cài VB6 thì tìm trên Google tải về giải nén ra Tìm trong File ISO theo đường dẫn sau: VB6.ISO\os\system\MSWINSCK.OCX...
www.giaiphapexcel.com
1/ Code hiện tại đang viết mọi cái trên VB6 để làm quen cách thức hoạt động của nó Khi nào mạnh chuyển Qua Delphi thành công sẻ úp tặng cho ai đó cần mà sử dụng không giới hạn
2/ Xem qua Video Demo
3/ Code mở kết nối ADODB Từ Client tới Server rất gần gủi Y trang trên VBA ... ta chỉ cần khai báo kết nối tới Server là xong
Cách 1
Mã:
Public Sub GetDatabase_VB6()
Dim Rst As ADODB.Recordset
Dim Xnet As New Network
Dim SQL As String
Rem SQL = "select * from NhapXuatTon"
SQL = "select * from DataBaseNhap"
Rem SQL = Range("A8").Value
Set Rst = Xnet.connect("192.168.1.9", 8181, SQL)
Cells.ClearContents
Range("A1").CopyFromRecordset Rst
Rst.Close: Set Rst = Nothing
End SubCách 2
Mã:
Public Sub GetDatabase2_VB6()
Dim Rst As ADODB.Recordset
Dim Xnet As New Network
Dim SQL As String, i As Long
SQL = "select * from DataBaseNhap"
Rem SQL = Range("A8").Value
Set Rst = Xnet.connect("192.168.1.9", 8181, SQL)
For i = 0 To Rst.Fields.Count - 1
Cells(1, 1 + i).Value = Rst.Fields(i).Name
Next i
Cells.ClearContents
Range("A2").CopyFromRecordset Rst
Rst.Close: Set Rst = Nothing
End SubCách 3
Mã:
Private Sub GetDatabase3_VB6()
Dim Rst As ADODB.Recordset
Dim Xnet As New Network
Dim SQL As String
Dim dArr() As Variant
Dim Arr() As Variant
Dim i As Long, j As Long, k As Long
SQL = "select * from DataBaseNhap"
Set Rst = Xnet.connect("192.168.1.9", 8181, SQL)
Arr = Rst.GetRows()
ReDim dArr(1 To UBound(Arr, 2) + 1, 1 To UBound(Arr, 1) + 1)
For i = 0 To UBound(Arr, 2)
k = k + 1
For j = 0 To UBound(Arr, 1)
dArr(k, j + 1) = Arr(j, i)
Next j
Next i
Cells.ClearContents
Range("A1").Resize(UBound(dArr, 1), UBound(dArr, 2)) = dArr
Rst.Close
Set Rst = Nothing
End SubCách 4
ta có thể viết Hàm mảng trên Cells hay gì đó tùy thích cũng được như mô tả trên Link sau qua Thớt đó sẻ hiểu thêm
Bài số #39
Lập Trình Excel Server Và Client - Phương Thức TCP/IP
Viết Client Server trên Excel tôi đã làm cách đây 9 năm và rất nhiều người đã biết và ứng dụng nó. Các bạn cố học làm đc là tốt chứ không cÀn chứng minh việc này nữa, nó đã có lâu rồi. :) Để làm đc những cái như báo cáo động, share range excel đều là những việc rất khó và gian nan, cần nhiều...
www.giaiphapexcel.com
Lần chỉnh sửa cuối:
Bạn nằm mơ hả.
em cũng hy vọng sẽ làm được cái gì đó cho mọi người sử dụng 
