PDA

View Full Version : Adox


hithere
08-05-2003, 16:42
Chao cac bac!
1> Toi dung mot lenh ADOX nhu sau:
Set cnXDest.ActiveConnection = cnDest
va no xuat hien loi nhu sau:
Run-time error '-2147217845 (80040e4b)':
The specified accessor was not a parameter accessor

Toi khong biet cach chua loi nay, co ai biet bao toi voi

2> Toi dang lam mot chuong trinh convert du lieu tu mot database bat ki sang Oracles. Bac nao co khong? Hay co source ve van de nay de tham khao cung duoc(su dung ADO va ADOX thi se nhanh hon, con neu dung DAO thi lau lam cac bac oi)
bacbaphi
08-05-2003, 21:06
À thì ra là bác Hello Hi there đó hả.Xem lại xem cái khai báo Cái chuỗi gán cho ActiveConnection đã đúng chưa.Nghe ông khè "công nghệ mới" với tui ghê quá liền viết thử 1 cái chơi. Cái này xuất ra HTML cấu trúc của Cơ sở dữ liệu như tên bảng tên trường,kiểu trường.Cái này in ra cầm khi lập trình có quên field thì "dzòm 1 cái".


Private Sub cmdOK_Click()
Dim i, j as Byte
Dim l As Long
Dim abc As String
Dim cnn As New ADOX.Catalog
Dim bang As New Table
Dim cot As New Column
Command2.Enabled = False
cnn.ActiveConnection = "provider=microsoft.jet.oledb.4.0 ; data source=" & "C:\QLNS2003\data\nhansu.mdb"
For i = 0 To cnn.Tables.Count - 1
Set bang = cnn.Tables(i)
If Left(bang.Name, 4) <> "MSys" Then
abc = abc & "<b>" & bang.Name & "</b><br>"
For j = 0 To bang.Columns.Count - 1
Set cot = bang.Columns(j)
abc = abc & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & "<b>" & UCase(cot.Name) & "</b>( <i>" & chuyen(cot.Type) & "</i>)<br>"
Next
'Text2 = Text2 & "<br>"
End If
Next
l = FreeFile
Open "c:\thongtindulieu.html" For Output As #l
Print #l, "<html><head>"
Print #l, "</head> <body>"
Print #l, abc
Print #l, "</body></html>"
Close #l
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE c:\thongtindulieu.html", vbMaximizedFocus
End Sub

Private Function chuyen(ma As Byte) As String
Select Case ma
Case 3
chuyen = " KiểuLong "
Case 202
chuyen = " Kiểu Text"
Case 4
chuyen = " Kiểu Single "
Case 7
chuyen = " Kiểu Ngày"
Case 17
chuyen = " Kiểu Byte"
End Select
End Function

Mới vừa viết xong chưa kịp chỉnh sửa có gì bà con góp ý giúp
bacbaphi
08-05-2003, 21:10
Dòng thứ 16 là chuỗi các ký tự trắng trong HTML ấy mà,nhưng sao vào đây nó không hiện nhỉ? "&nbsp;"
hithere
09-05-2003, 08:12
Tui chán ông ghê ấy bacbaphi ơi! Trả lời gì mà không sát câu hỏi gì cả. Tự nhiên chui vào chỗ của tui hỏi lại
abc = abc & " " & "<b>" & UCase(cot.Name) & "</b>( <i>" & chuyen(cot.Type) & "</i> )<br>"
thử dùng cái này thử xem:
abc = abc & space(16) & "<b>" & UCase(cot.Name) & "</b>( <i>" & chuyen(cot.Type) & "</i> )<br>"