UC知道VB如何连接SQL数据库
来源：百度知道 编辑：UC知道 时间：2024/05/09 11:54:19
因为老师教的代码嘛先是引用DATAOBJECT2.1LIBLARY
然后用两个部件分别是Microsoft tabbed diadlog contrli6.0
Microsoft dateguird 6.0
然后代码大至如下
Private rs As New ADODB.Recordset
Private Sub Form_Load()
rs.CursorLocation = adUseClient
rs.Open "select * from acqq", "prvider=sqloledb.1;server=TENEI\AHU;database=acqq;uid=tenei;pwd=;", adOpenDynamic, adLockBatchOptimistic
Set datagrial.datasourse = rs
有可能里面的代码有错,还有可能是我没有写好正确的数据库和表的名称,,想请专业人士指教一下.
然后用两个部件分别是Microsoft tabbed diadlog contrli6.0
Microsoft dateguird 6.0
然后代码大至如下
Private rs As New ADODB.Recordset
Private Sub Form_Load()
rs.CursorLocation = adUseClient
rs.Open "select * from acqq", "prvider=sqloledb.1;server=TENEI\AHU;database=acqq;uid=tenei;pwd=;", adOpenDynamic, adLockBatchOptimistic
Set datagrial.datasourse = rs
有可能里面的代码有错,还有可能是我没有写好正确的数据库和表的名称,,想请专业人士指教一下.
Option Explicit
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
'下句请Data Source后改为你的数据库路径和名
db.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=kaoqing;Data Source=JANSON"
db.Open
rs.CursorLocation = adUseClient
rs.Open "select * from acqq", db, adOpenStatic, adLockReadOnly
Set datagrial.datasourse = rs
End Sub