请问vb与sql server用代码怎么连接，查找，保存呢！

Question

高分求，要完整的，谢谢大家的支持

Answer 1

Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs

Answer 2

查找：  select * from table where ...........然后把相应的记录集显示在表格里就行你还是多看看书
可以访问www.vbgood.com
www.dapha.net
www.21code.com
www.vbeden.com
www.myvc.net
msdn.microsoft.com
http://www.vbaccelerator.com/
http://www.mvps.org/vbnet/
http://www.freevbcode.com/
http://www.pscode.com/vb/
http://www.allapi.net
和MSDN得到更多的帮助.............

Answer 3

引用 Microsoft ActiveX Data Objects 2.6 library
通用部分
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
__________________________________
Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
cn.ConnectionString ="Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
cn.CursorLocation = adUseClient
cn.Open
End Sub
以上可完成连接。
查询可使用 rs.open "此处写SQL语句",cn, adOpenStatic, adLockOptimistic
然后将rs的数据给界面上的控件。
保存，本人建议使用cmd对象将要保存的数据用参数传递给cmd对象。这样可提高运行的速度，但代码部分比较复杂，这里不能详细的写出来。

Answer 4

同意lihonggen0(李洪根,用.NET，标准答案来了)
Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs