Const CnStr As String = "Driver=SQL Server;Server=(local);Database=Pub;UID=sa;PWD=i Am sa" Dim rs As New ADODB.Recordset rs.Open "select * from auhtors", CnStr连SQL,要是别的换CNSTR
dim cnnstr as string dim cnn as adodb.connection dim cmm as adodb.command dim rst as adodb.recordsetcnnstr=连接字符串 set cnn=new adodb.connection cnn.open cnnstr 用户名,密码set cmm =new adodb.command set cmm.activeconnection=cnn cmm.commandtype=3set rst=new adodb.recordset rst.cursorlocation= rst.cursortype=rst.open tablename,cnn......
of123,敲错字吧: 实际上先程控件也是在数据库引擎基础上搭建的。 ---》 实际上现成控件也是在数据库引擎基础上搭建的。不用固定控件就要引用支持的库文件 98 引用Microsoft ActiveX Data Objects 2.0 Library 2000 可引用Microsoft ActiveX Data Objects 2.5 Library使用如楼上sgx所言
dim cnn as new ADODB.Connection1. 连接Visual Foxpro
cnn.ConnectionString = “PROVIDER=MSDASQL; DRIVER={Microsoft Visual Foxpro Driver};SourceDB=D:\data\;SourceType=DBF” 2.连接SQL Server cnn.ConnectionString = “PROVIDER= MSDASQL;DRIVER={SQL Server};SERVER=servera;DATABASE=pubs;UID=sa;PWD=yyuui” 3. 连接Sybase数据库 cnn.ConnectionString="PROVIDER=MSDASQL;DRIVER={Sybase System 11};SRVR=serveru;DSN=;DB=dataa;UID=sa;PWD=dqwe;PERSIST SECURITY INFO=False"4. 连接Oracle数据库 cnn.ConnectionString ="PROVIDER=MSDASQL;DRIVER={Microsoft ODBC for Oracle};SERVER=Webserver;DSN=;databasename=dataall;databasefile=d:\data\;UID=dba;PWD=killer" cnn.Open
Dim rs As New ADODB.Recordset
rs.Open "select * from auhtors", CnStr连SQL,要是别的换CNSTR
如果从头学,也不必改写旧程序,建议从ADO学起。
不过还是建议你先用ADODC,这样比较容易上手。
dim cnnstr as string
dim cnn as adodb.connection
dim cmm as adodb.command
dim rst as adodb.recordsetcnnstr=连接字符串
set cnn=new adodb.connection
cnn.open cnnstr 用户名,密码set cmm =new adodb.command
set cmm.activeconnection=cnn
cmm.commandtype=3set rst=new adodb.recordset
rst.cursorlocation=
rst.cursortype=rst.open tablename,cnn......
实际上先程控件也是在数据库引擎基础上搭建的。
---》
实际上现成控件也是在数据库引擎基础上搭建的。不用固定控件就要引用支持的库文件
98 引用Microsoft ActiveX Data Objects 2.0 Library
2000 可引用Microsoft ActiveX Data Objects 2.5 Library使用如楼上sgx所言
cnn.ConnectionString = “PROVIDER=MSDASQL; DRIVER={Microsoft Visual Foxpro Driver};SourceDB=D:\data\;SourceType=DBF” 2.连接SQL Server
cnn.ConnectionString = “PROVIDER= MSDASQL;DRIVER={SQL Server};SERVER=servera;DATABASE=pubs;UID=sa;PWD=yyuui” 3. 连接Sybase数据库
cnn.ConnectionString="PROVIDER=MSDASQL;DRIVER={Sybase System 11};SRVR=serveru;DSN=;DB=dataa;UID=sa;PWD=dqwe;PERSIST SECURITY INFO=False"4. 连接Oracle数据库
cnn.ConnectionString ="PROVIDER=MSDASQL;DRIVER={Microsoft ODBC for Oracle};SERVER=Webserver;DSN=;databasename=dataall;databasefile=d:\data\;UID=dba;PWD=killer"
cnn.Open