用控件反比不用好.如果是ACCESS就别用控件.

解决方案 »

  1.   

    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Open "Provider=SQLOLEDB.1;Password=qdccaucma;Persist Security Info=True;User ID=sa;Initial Catalog=MyDb;Data Source=sqlName"
    'cn.Execute "update MyTab Set Name='" & Rnd() * 100 & "'"
    rst.Open "MyTab", cn, adOpenKeyset, , adCmdTable
    Set DataGrid1.DataSource = rst
      

  2.   

    本文将讨论这三种vb应用程序管理sql server数据的方法,并比较每种方法的性能和优缺点。 
    方法1. 数据访问对象/jetvisual basic支持data access objects(daos)的子集。dao的方法虽然不是性能最好的管理客户机椃衿髦涞亩曰胺绞剑酚行矶嘤诺恪j褂?/font>daos访问sql server的过程如下:应用程序准备好语句并送至jet,jet引擎(masjt200.dll)优化查询,载入驱动程序管理器并与之通讯,驱动程序管理器(odbc.dll)通地调用驱动器(sqlsrvr.dll)的函数,实现连接到数据源,翻译并向sql server提交sql语句且返回结果。 
    下面是一个用daos访问sql server的vb实例。 
    ’form declarations 
    dim mydb as database 
    dim mydynaset as dynaset 
    private sub form_load() 
    set mydb=opendatabase("",fa|se,fa|se,"odbc;dsn=myserver;wsid=lcl;database=sa|es") 
    set mydynaset=mydb createdynaset("select*from customers") 
    end sub 
    上述例子是以非独占、非只读方式打开sales数据库,并检索customers表中的所有字段。opendatabase函数的最后一个参数是odbc连接字符串参数,它指明了microsoft access连接到sql server所需要知道的一些内容。其中“dsn”为数据源名,“wsid”为工作站名,“database”为所要访问的数据库名。 
    方法2.用odbc api编程 
    odbc(open database connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(odbc.dll)的动态连接中。应用程序调用驱动程序管理器中的函数,而驱动程序管理器反过来通过驱动器反过来通来驱动器(sqlsrvr.dll)把它们送到服务器中。 
    用odbc api编程,一般要用到以下一些函数。下面列出了常用的函数以及它们的功能。 
    下面的代码使用上面一些函数先登录到一个服务器数据库,并为随后的工作设置了语句句柄。 
    global gihenv as long 
    global gihdb as long 
    global gihstmt as long 
    dim myresult as integer 
    dim myconnection as srting 
    dim mybuff as string*256 
    dim mybufflen as integer 
    if sqla||ocenv(gihenv)<>sql_success then 
    msgbox"a||ocation couldn’t happen!" 
    end if 
    if sql||occonnect(gihenv,gihdb)<>sql_success then 
    msgbox "sql server couldn’t connect!" 
    end if 
    myconnection="dsn=myserver;uid=|c|;pwd=;app=odbctest;ws|d=lcl;database=sales" 
    myresult=sqldriverconnect(gihdb,test,form1.hwnd,myconnection.len(myconnection), 
    mybuff,256,mybufflen,sql_driver_complete_requied) 
    myresult=sqla||ocstmt(gihds,gihstmt) 
    myresult=sqlfreestmt(gihstmt,sql_colse) 
    rssql="select*from customers where city="wuhan"" 
    myresult=sqlexecdirect(gihstmt,rssql,len(rssql)) 方法3.使用vbsql对db库api编程 
    db库是sql server的本地api,sql server的visual basic库(vbsql)为visual basic程序员提供api。从一定意义上说,vbsql是连接visual basic程序到sql server的性能最好最直接的方式。vbsql包含以下三个文件: 
    vbsql.vbx 包含库函数,具有访问重要的消息和处理错误的能力 
    vbsql.bi 包括所有的常量和变量说明 
    vbsql.hlp windows帮助文件,使用vbsql的指南 
    使用vbsql时,必需将vbsql.bi加入到visual basic工程文件中,并确保vb程序运行时有vbsql.vbx文件。 一个典型的vbsql对话中,一般要用到以下这些函数。 函数 
    功能 
    sqlallocenv 
    初始化odbc环境,返回环境句柄 
    sqlallocconnect 
    为连接句柄分配内存并返回连接句柄 
    sqlconnect 
    连接一个sql数据资源 
    sqldriverconnect 
    连接一个sql数据资源,允许驱动器向用户询问信息 
    sqlallocstmt 
    为语句句柄分配内存并返回语句句柄 
    sqlexecdirect 
    把sql语句送到服务器 
    sqlfetchadvances 
    到结果集的下一行(或第一行) 
    sqlgetdata 
    从结果集的特定的一列取回数据 
    sqlfreestmt 
    释放与语句句柄相关的资源 
    sqldisconnect 
    切断连接 
    sqlfreeconnect 
    释放与连接句柄相关的资源 
    sqlfreeenv 
    释放与环境句柄相关的资源 
    一般的db库api编程的过程是这样的:先通过调用sqlinit对db库进行初始化,再调用sqlconnection打开一个连接,然后就可做一些工作。下面的代码是一个初始化db库并登录到服务器的通用例程。 
    private sub initializeapplication() 
    dblib-version=sqlinit() 
    if dblib_version=""then 
    msgbox"could not initialize dblib!exit application.", mb_iconexclamation 
    end 
    end if 
    end sub 
    private function logintoserver() as integer 
    logintoserver=succeed 
    status%=sqlsetlogintime%(logintimeout) 
    if gisqlconn<>0 then 
    sqlclose(gisqlconn) ’关闭已打开的连接 
    gisqlconn=sqlopenconnection(gsservername,gsloginid,gspassword,programname, programname) 
    if gisqlconn<>o then 
    liresult=sqluse(gisqlconn,"sales") 
    else 
    logintoserver=fail 
    end if 
    end function 
    性能比较 
    以上三种访问sql server的方法各有各的特点。daos方法是基于对象的,因而便于使用,但是它从visual basic到sql server的最慢的方式。odbc api和vbsql方法从本质上讲是基于程序的。odbc api方法通用性好,允许最强的互操作性,编程简单,但速度慢于vbsql方法。vbsql方法通过vbsql控件,提供了重要的sql server前端应用程序所需的灵活性、强大功能和良好性能。它具有真正的事件驱动及错误处理能力,完全支持异步处理、游标和计算列等。这些都是vbsql方法超出其它方法的优势,但其编程稍复杂。至于实际使用哪一种接口方式,在很大程度上依赖于用户的应用程序的具体情况而定。 
      

  3.   

    http://www.lypear.com/bbs/list.asp?boardID=1
    过来.我帮你想想办法
      

  4.   

    注意使用完后晴空
    rst.close
    cn.close
    set rst=nothing
    set cn=nothing
      

  5.   

    Public adoCN As New ADODB.Connection      '定义数据库的连接存放数据和代码
    Public SqlCommand As New ADODB.Command    '定义 SQL 命令
    Dim adoDateTime As New ADODB.Recordset    '获取 NT-SERVER 时间Public Function OpenConnection() As String '打开数据库
        On Error GoTo SQLConErr
        With adoCN
            .CursorLocation = adUseClient
            .Provider = "sqloledb"
            .Properties("Data Source").Value = cNtServerName
            .Properties("Initial Catalog").Value = cDatabaseName
            .Properties("User ID") = cSQLUserName
            .Properties("Password") = cSQLPassword
            .Properties("prompt") = adPromptNever
            .ConnectionTimeout = 15
            .Open
            
            If .State = adStateOpen Then
                adoDateTime.Open "select getdate()", adoCN, adOpenStatic, adLockOptimistic
                cServerDate = Format(adoDateTime(0), "yyyy-mm-dd")
                cServertime = Mid(adoDateTime(0), 10)
            Else
                MsgBox "数据库连接失败,请找系统管理员进行检查 !", 16, cProgramName
                End
            End If
        End With
        
        SqlCommand.ActiveConnection = adoCN
        SqlCommand.CommandType = adCmdText
        Exit Function
    SQLConErr:
        Select Case Err.Number
            Case -2147467259
                MsgBox "找不到指定的SQL Server服务器或者数据库不存在,请重新设置!", vbExclamation
                F_SetSystem.Show 1
            Case -2147217843
                MsgBox "指定的SQL Server数据库用户不存在或口令错误,请重新设置!", vbExclamation
                F_SetSystem.Show 1
            Case Else
                MsgBox "数据环境连接失败,请找系统管理员进行检查 !", 16, cProgramName
        End Select
        OpenConnection
    End Function