Câu hỏi

26/04/2013 21:51
Hỏi về kết nối CSDL Access với Visual Basic, và cách đọc file excel rồi xuất báo cáo trong Visual Basic
Chào cả nhà. Mình bây giờ mới tập toẹ về lập trình VB cho mình hỏi chút nhé.
Mình lập trình bằng VB6 thì có thể liên kết với Access 2003 được không. và mình muốn xuất báo cáo sang dạng file word và excel thì làm thế nào?
2 việc này thực sự rất quan trọng với mình Các bạn giúp mình với!
Uni2805
26/04/2013 21:51
Mình lập trình bằng VB6 thì có thể liên kết với Access 2003 được không. và mình muốn xuất báo cáo sang dạng file word và excel thì làm thế nào?
2 việc này thực sự rất quan trọng với mình Các bạn giúp mình với!
Danh sách câu trả lời (6)

Làm như sau nè:
b1: Tạo cơ sở dữ liệu trong access
b2: Control Panel/Administrative Tools/Data Sources (ODBC)/chọn access sau đó chọn select tới mục mà bạn lưu dữ liệu
ban chon trong VB them DBG thì phải sau đó kết nối dữ liệu
Cách 2
Module
Global gCnn As New ADODB.Connection
Global Rs As New ADODB.Recordset
form này
Private Sub cmdAccess_Click()
On Error GoTo errp
If gCnn.State = adStateOpen Then gCnn.Close
gCnn.Provider = "Microsoft.JET.OLEDB.4.0"
gCnn.CursorLocation = adUseClient
gCnn.Open txtDbase.Text, txtuser.Text, txtPwd.Text
' hoặc là gcnn.open " đường dẫn "
MsgBox " Access the Database successful !", vbInformation + vbOKOnly, "Access"
Unload Me
Exit Sub
errp:
MsgBox Err.Description
End Sub
b1: Tạo cơ sở dữ liệu trong access
b2: Control Panel/Administrative Tools/Data Sources (ODBC)/chọn access sau đó chọn select tới mục mà bạn lưu dữ liệu
ban chon trong VB them DBG thì phải sau đó kết nối dữ liệu
Cách 2
Module
Global gCnn As New ADODB.Connection
Global Rs As New ADODB.Recordset
form này
Private Sub cmdAccess_Click()
On Error GoTo errp
If gCnn.State = adStateOpen Then gCnn.Close
gCnn.Provider = "Microsoft.JET.OLEDB.4.0"
gCnn.CursorLocation = adUseClient
gCnn.Open txtDbase.Text, txtuser.Text, txtPwd.Text
' hoặc là gcnn.open " đường dẫn "
MsgBox " Access the Database successful !", vbInformation + vbOKOnly, "Access"
Unload Me
Exit Sub
errp:
MsgBox Err.Description
End Sub
Trả lời câu hỏi
Câu hỏi lĩnh vực Lập trình
Rao vặt Siêu Vip