超级菜鸟问题(VB连接sql server的问题)求救~~~~

Question

菜菜鸟欲连接sql server服务器,可是有错.请高人指点.Option Explicit
Public cn_dk As New ADODB.Connection
Public rs_dk As New ADODB.Recordset
Sub main()cn_dk.ConnectionString = "uid=client;pwd=client;driver={SQL Server}; server=wwwjdec ;database=testtab"
cn_dk.ConnectionTimeout = 30
cn_dk.OpenSet rs_dk.ActiveConnection = cn_dk
rs_dk.CursorLocation = adUseClient
rs_dk.CursorType = adOpenStatic
rs_dk.LockType = adLockBatchOptimisticForm1.ShowEnd Sub执行时,总出错.
错误为>>>>>>>>>>
                      编译错误:
                      用户定义类型未定义

Answer 1

是不是 Public cn_dk As New ADODB.Connection 报错？是的话 是没有引用ADO

Answer 2

ado引用了吗？没有的话，就按 ctrl + t ，在弹出的窗口中选择 microsoft ado data Control……
然后在form上拉一个adodc

Answer 3

楼上说得对！没有引用ADO吧！

Answer 4

是的,各位大虾~~`
就是 cn_dk As New ADODB.Connection 这里出错了~~
我加上adodc就好了.但是,我希望是直接代码联,不安装任何额外的控件.不可以么?我记得好多种连接数据库的方法.可是,我都是稀里糊涂的.能给小弟额外举几个例子么?例如ado,dao,odbc,等等.谢谢了.
请看小弟这个代码,是连接本地access的.这个算是哪种连接方式呢?Option Explicit
Public adoCnn As New ADODB.Connection
Public adoCmm As New ADODB.Command
Public adoRec As New ADODB.RecordsetSub main()
adoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\testdb.mdb;Persist Security Info=False"
 
adoCmm.ActiveConnection = adoCnn
adoCmm.CommandType = adCmdText
 
Form1.Show
End SubPrivate Sub Form_Load()
adoCmm.CommandText = "select * from tab1"
Set adoRec = adoCmm.ExecuteEnd Sub

Answer 5

工程->引用->Microsoft ActiveX Data Objects 2.x Library

Answer 6

Public cn_dk As New ADODB.Connection
Public rs_dk As New ADODB.Recordset
Sub main()cn_dk.ConnectionString = "uid=client;pwd=client;driver={SQL Server}; server=wwwjdec ;database=testtab"
cn_dk.ConnectionTimeout = 30
cn_dk.OpenSet rs_dk.ActiveConnection = cn_dk
rs_dk.CursorLocation = adUseClient
rs_dk.CursorType = adOpenStatic
rs_dk.LockType = adLockBatchOptimisticForm1.ShowEnd Sub=======================================
ADO的ConnectionString字符串可以用ADODC控件进行连接来得到其他的你写的是正确的

Answer 7

工程->引用->Microsoft ActiveX Data Objects 2.x Library
然后加上你的code就算代码连了！呵呵