Tùy chọn
[Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
- [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
-
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
thuyyeu99 > 19-03-20, 10:53 PM
các anh cho em hỏi trong Acces giờ em muốn các recordset nó hiển thị tì em dùng cái control gì ah -
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
ongke0711 > 20-03-20, 02:50 PM
(19-03-20, 10:53 PM)thuyyeu99 Đã viết: các anh cho em hỏi trong Acces giờ em muốn các recordset nó hiển thị tì em dùng cái control gì ah
Để hiển thị Recordset thì tạo 1 table tạm lưu xuống cho nhanh rồi đưa lên Form để xem.
Hoặc thiết kế trên Form có sẳn các textbox có Contrl Source là tên field của cái Recordset em tải về.
Sau khi tải về ADO Recordset thì gán nó cho Form:
Set Me.Recordset = rsADO. -
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
thuyyeu99 > 20-03-20, 03:50 PM
. mò gì cũng ra mò Access không ra 
-
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
thuyyeu99 > 20-03-20, 03:51 PM
-
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
ongke0711 > 20-03-20, 04:40 PM
(20-03-20, 03:51 PM)thuyyeu99 Đã viết: là tạo File mdb đó hả anh
Em chuyển vào Array thì ok rồi.
mà sao chuyển ADODB.Recordset vô Access nó lại là Fields chứ không phải Recordset trong Delphi vẫn bình thường không hiểu nổi
Field là tên cột.
Nếu em đang xử lý kết nối internet và lấy về ADO Recordset thì tạo luôn một Table ngay trong Database này luôn.
Em dùng cái hàm này để tạo table từ ADO Recordset.
Mã PHP:Function Createtable(rsADO As ADODB.Recordset, strTableName As String)
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim fld As ADODB.Field
Dim strFilePathForConnection As String
strFilePathForConnection = CurrentProject.FullName
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFilePathForConnection & ";Persist Security Info=False;"
Set cat.ActiveConnection = cnn
With tbl
.Name = strTableName
Set .ParentCatalog = cat
For Each fld In rsADO.Fields
.Columns.Append fld.Name, fld.Type
Next
End With
cat.Tables.Append tbl
Set cat = Nothing
Application.RefreshDatabaseWindow
'Gán record xuosng Table
Dim rsDAO As DAO.Recordset
Set rsDAO = CurrentDB.OpenRecordset(strTablename,dbOpenDynaset)
Dim i As Integer
Do Until rsADO.EOF
rsDAO.AddNew
For i = 0 To rsADO.RecordCount - 1
rsDAO.Fields(i) = rsADO.Fields(i)
Next i
rsDAO.Update
rsADO.MoveNext
Loop
MsgBox "Xong"
End Function -
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
thuyyeu99 > 20-03-20, 05:01 PM
(20-03-20, 04:40 PM)ongke0711 Đã viết:
(20-03-20, 03:51 PM)thuyyeu99 Đã viết: là tạo File mdb đó hả anh
Em chuyển vào Array thì ok rồi.
mà sao chuyển ADODB.Recordset vô Access nó lại là Fields chứ không phải Recordset trong Delphi vẫn bình thường không hiểu nổi
Field là tên cột.
Nếu em đang xử lý kết nối internet và lấy về ADO Recordset thì tạo luôn một Table ngay trong Database này luôn.
Em dùng cái hàm này để tạo table từ ADO Recordset.
Mã PHP:Function Createtable(rsADO As ADODB.Recordset, strTableName As String)
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim fld As ADODB.Field
Dim strFilePathForConnection As String
strFilePathForConnection = CurrentProject.FullName
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFilePathForConnection & ";Persist Security Info=False;"
Set cat.ActiveConnection = cnn
With tbl
.Name = strTableName
Set .ParentCatalog = cat
For Each fld In rsADO.Fields
.Columns.Append fld.Name, fld.Type
Next
End With
cat.Tables.Append tbl
Set cat = Nothing
Application.RefreshDatabaseWindow
'Gán record xuosng Table
Dim rsDAO As DAO.Recordset
Set rsDAO = CurrentDB.OpenRecordset(strTablename,dbOpenDynaset)
Dim i As Integer
Do Until rsADO.EOF
rsDAO.AddNew
For i = 0 To rsADO.RecordCount - 1
rsDAO.Fields(i) = rsADO.Fields(i)
Next i
rsDAO.Update
rsADO.MoveNext
Loop
MsgBox "Xong"
End Function
em đang nhức đầu về nó đây The Fields Collection chứ không phải Recordset
Dim myRecord As Variant
myRecord = a.GetdataServer("192.168.1.15", 1710, "thuyyeu99", "123", "Select top 164 * FROM SampleData")
thằng myRecord là Fields Collection nó chỉ có 2 thuộc tính Count và Item em bó tay.
Anh viết từ Array variant đưa vô bảng tạm đi anh
Anh rảnh anh làm giùm em cái demo Function Createtable đưa vào list box đi. để máy cái khác em mò cho -
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
ongke0711 > 20-03-20, 08:02 PM
Array chuyển sang Recordset cũng được. Cấu trúc cái mảng của em ra sao? Cột, dòng? Ví dụ mẫu bằng file text anh xem thử. -
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
thuyyeu99 > 20-03-20, 08:51 PM
-
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
thuyyeu99 > 20-03-20, 11:52 PM
Để em tạo table luôn Acc chỉ cần connect thôi -
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
thuyyeu99 > 24-03-20, 09:25 AM
Đã chuyển được Record vào Access hihih