View Full Version : kết nối với VB
mình đã tạo hoàn chỉnh csdl bằng SQL nhưng lại không biết làm sao để kết nối vào VB dể tạo giao diện. Mong các bác giúp đỡ cho. Mình chỉ biết kết nối VB vào eccess thoi
Thì nó cũng tương tự như với Acess vậy đó. Sau đây là ví dụ mẫu về kết nối với SQL server
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public sqlServer As String
Public sqlUser As String
Public sqlPass As String
Public Sub mdlConnection()'Thủ tục dùng để kết nối với Database
sqlServer = "p3xp" 'Tenmay
sqlUser = "admin" 'Tenuser
sqlPass = "adminsystem" 'Password cua user đó
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Password='" & sqlPass & "';Persist Security Info=True;User ID='" & sqlUser & "';Initial Catalog=ADMIN;Data Source='" & sqlServer & "'"
cn.Open
End Sub
sao không dùng thử adodb control xem sao chỉ cần vài cái nhấp chuột là xong ngay.
dungtran
04-04-2004, 22:54
Cho tui hỏi cái nữa, làm sao open được recordset vậy!!?
past_beggar
05-04-2004, 12:41
- Oài, để kết nối connection và mở reordset thì Access và SQL giống nhau thôi (chỉ khác Connect String thôi).
- Còn thao tác với database thì SQL nó hơn thằng Access rất nhìu.
Thử trước khi hỏi nhé,
Thân
phatnq2003
09-04-2004, 16:14
Cho tui hỏi cái nữa, làm sao open được recordset vậy!!?
Bạn khai báo biến recordset và mở thôi:
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.CursorLocation = ...
.CursorType = ...
.LockType = ...
.ActiveConnection = cn
.Open "câu lệnh sql mở source"
.ActiveConnection = Nothing
End With
:)
Powered by vBulletin® Version 4.2.0 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.