cho em hỏi cách kết nối SQL và VB6.0

[linh2225]

cho em hỏi cách kết nối cơ sở dữ liệu SQL vào VB6.0

[ga_to_hoc_it]

'MS SQL Sever 2000
Dim conn As New ADODB.Connection
Dim rs As New ADODB.recordset 'chứa các bộ giá trị trả về của câu truy vấn
Dim str as String 'lưuchuỗi kết nối
Dim sqlstring as String 'câu truy vấn CSDL

str = "provider=MSDASQL; driver={SQL server}; server= tên_sever; uid=
_tên_đăng_nhập ;pwq= mật_khẩu ;database= tên_datbase"

conn.ConnectionString = str
conn.Open
rs.Open sqlString, conn, adOpenStatic, adLockOptimistic