SQL数据库连接不用路径的在你计算机上安装SQLServer2000或更高版本,然后附件数据库文件ADB配置你的ADODB的ConnectionString属性,连接服务器为127.0.0.1,验证设置为windows验证,默认数据库设置为你的数据库名称,测试连接通过,完成。
cnstr="provider=sqloledb;datasource="&dbip&";database="&dbname&";uid="&dbuser&";pwd="&dbpwdbipip地址database数据库名字dbuser用户名dbpw密码dimconnasnewadodb.connectioncnstr="provider=sqloledb;datasource=192.168.29.21;database=dsy;uid=sa;pwd=abc"conn.opencnstrsql="select*from表名"'sql查询语句setrs=newadodb.recordset'新建一个记录集实例rs.opensql,conn,1,3'后面的3是确定读写权限的
Public My_Cnn As New ADODB.Connection '连接数据库 StrCnn = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名" My_Cnn.CursorLocation = adUseClient My_Cnn.Open StrCnn 使用数据库 Dim sql As String Dim My_temp As New ADODB.Recordset 执行SQL语句(一般插入,删除数据) sql = "数据库语句" My_cnn.Execute sql 读取数据 sql = "查询语句" My_temp.Open sql, My_cnn, adOpenDynamic, adLockOptimistic My_temp.field("字段名")
楼上的连接方法是其一,还有可以这样设连接字符串Connstr="Driver={SQLServer};server=(local);uid=用户名;database=库名;pwd=密码"(local)表示本机如换其它机子,可以填写它的IP,不需括号