数据连接这一块:
Set MyDB = Workspaces(0).OpenDatabase(Sys_Path & "\Data\hxicyb.MDB", False, False, ";pwd=2001")
Set MyRs = MyDB.OpenRecordset("user", dbOpenTable)
转换为sql server后如何做,以及将来升级网络版都要做哪些工作。
我想问一些数据库转换的问题,还有我的系统原来的报表打印是这样写的
Dim xlapp As excel.Application
Set xlapp = New excel.Application
xlapp.Visible = False
xlapp.SheetsInNewWorkbook = 1
Set xlbook = xlapp.Workbooks.Open(Sys_Path & "\daypaper.xls")
With xlapp.ActiveSheet
.Cells(3, 6).Value = Date '用户编码
dim adocon as adodb.connection
dim adorst as adodb.recordset
set adocon =new adodb.connection
set adorst=new adodb.recordset
adocon.connectionstring="dsn=ODBC中连接数据库的名字;uid=sa;pwd="
adocon.open
adorst.cursorlocation=........
adorst.cursortype=........
adorst.locktype=.........
adorst.activeconnection= adocon
adorst.open "select * from 数据库中表的名字
dim cn as new adodb.connect
dim rs as new adodb.recordset
dim constring as string
dim sql as string
constring="PROVIDER=sqloledb;server= servername ;UID=sa;PWD=;"
sql="select * from yourtable"
cn.open constring '打开连接
rs.open con,sql '打开表
dim cn as new adodb.connect
dim rs as new adodb.recordset
dim constring as string
dim sql as string
constring="PROVIDER=sqloledb;server= servername ;UID=sa;PWD=;"
sql="select * from yourtable"
cn.open constring '打开连接
rs.open con,sql '打开表
dim con as new adodb.connect
dim record as new adodb.recordset
dim constring as string
dim sql as string
constring="PROVIDER=sqloledb;server= servername ;inital catalog=dbname ;UID=sa;PWD=;"
sql="select * from yourtable where yourtable.id<50"
con.open constring '打开连接
record.open con,sql '打开表