急寻vb里用ado访问sql server的例子:O

Question

sql server7.0
vb6.0
xp

Answer 1

要怎样的例子呢？
先连接
再用类似DAO的语句
我认为sql server最大的优势在
可以用存储过程
你要好好学习一下哦

Answer 2

Public sConn As String
    Public DBMain40 As New ADODB.Connection
    public ADO_Mast As New ADODB.Recordset    
    '以上是全局變量
    '
    Private Sub Form_Load()
           sConn = Provider=SQLOLEDB.1;Persist Security Info=True;User 
                   ID=sa;Initial Catalog=Northwind;Data Source=PWW           DBMain40.Open sConn
           call Query 
    End Sub
    
    Private Sub Query（）
        sRstSource = "Select ID As 部门代号,NAME As 部门名称,Descs As 部门说
                 明,BIG,WORK From EMPTYPE order by  ID "
        If ADO_Mast.State Then
            ADO_Mast.Close
        End If
        ADO_Mast.CursorType = adOpenKeyset
        ADO_Mast.CursorLocation = adUseClient
        ADO_Mast.LockType = adLockPessimistic
        ADO_Mast.Open sRstSource, DBMain40
        Set DGD_Detail.DataSource = ADO_Mast
    End Sub

Answer 3

这是连接数据库的例子
  cnn1.ConnectionString = "driver={SQL Server};" & _
    "server=server;uid=userer;pwd=12345;database=xxx"
'server 为:SqlServer名称
'uid为:Sql用户名
'pwd为:用户口令
'database为:数据库名
    cnn1.ConnectionTimeout = 30
    cnn1.CursorLocation = adUseClient
    cnn1.Open

Answer 4

1、声明一个connection对象、Command对象和Recordset对象
2、打开connection
3、传递查询语句给command对象，
4、返回纪录给Recordset对象
5、关闭connection

Answer 5

去www.vbeden.com上下吧，有现成的例子

Answer 6

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, adLockBatchOptimistic
    Set MSHFlexGrid1.DataSource = Rs

Answer 7

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, adLockBatchOptimistic
     
    Do Until Rs.EOF
        Combo1.AddItem Rs.Fields("FirstName")
        Rs.MoveNext
    Loop
   CN.Close

Answer 8

可以访问www.vbgood.com
www.dapha.net
www.21code.com
www.vbeden.com
www.myvc.net
msdn.microsoft.com和MSDN得到更多的帮助.............