ClsConnWord格式.docx
- 文档编号:636844
- 上传时间:2023-04-29
- 格式:DOCX
- 页数:27
- 大小:19.32KB
ClsConnWord格式.docx
《ClsConnWord格式.docx》由会员分享,可在线阅读,更多相关《ClsConnWord格式.docx(27页珍藏版)》请在冰点文库上搜索。
sql"
;
Windows认证="
win"
PublicAccFileAsString'
Access数据库文件名称
PublicExcFileAsString'
Excel数据库文件名称
PublicFoxPathAsString'
Foxpro数据库文件存储路径
PublicErrMsgAsString="
"
错误信息
PublicEnumFoxProVerAsInteger
IV=5
SQL数据库连接
PublicFunctionConnSQL()AsSqlClient.SqlConnection
ErrMsg="
DimCNAsNewSqlClient.SqlConnection
DimCNStringAsString
生成连接字符串
CNString="
DataSource="
&
DBServer&
"
;
Initialcatalog="
DBName&
SelectCaseLinkMode
CaseSQLLinkMode.SSPI
Server="
DataBase="
IntegratedSecurity=SSPI"
CaseSQLLinkMode.WIN
CNString=CNString&
IntegratedSecurity=SSPI;
CaseSQLLinkMode.SQL,"
_
IntegratedSecurity=False;
UserID="
DBUser&
Password="
DBPass&
CaseElse
SQLServer认证模式录入错误!
您必须选择Windows认证(WIN)或者SQLServer认证(SQL)。
ReturnNothing
ExitFunction
EndSelect
建立连接
Try
WithCN
CN.Close()
CN.ConnectionString=CNString
CN.Open()
EndWith
ReturnCN
CatcheErrAsSystem.Data.SqlClient.SqlException
ErrMsg=eErr.Message
EndTry
EndFunction
Access数据库连接
PublicFunctionAccessLink()AsOleDb.OleDbConnection
DimCNAsNewOleDb.OleDbConnection
IfDir(DBName)="
Then
文件["
]不存在。
不能建立数据库连接。
EndIf
.Close()
.ConnectionString="
Provider=Microsoft.Jet.OLEDB.4.0;
JetOLEDB:
DatabasePassword="
DBName
.Open()
CatchexAsException
ErrMsg=ex.Message
Excel数据库连接
PublicFunctionExcelLink()AsOleDb.OleDbConnection
provider=Microsoft.Jet.OLEDB.4.0;
datasource="
ExtendedProperties=Excel8.0;
DBF数据库连接
PublicFunctionFoxProLink(ByValFoxVerAsFoxProVer)AsOleDb.OleDbConnection
DimdbVerAsString
SelectCaseFoxVer
版本判断
CaseFoxProVer.IV
dbVer="
dBASEIV"
ExtendedProperties="
dbVer&
读取SQL语句的信息,返回DR
PublicFunctionGetDR(ByValSQLStringAsString,ByValCNAsSqlClient.SqlConnection)AsSqlClient.SqlDataReader
DimDRAsSqlClient.SqlDataReader
DimCMDAsNewSqlClient.SqlCommand
CMD.Connection=CN
CMD.CommandType=CommandType.Text
CMD.CommandText=SQLString
DR=CMD.ExecuteReader
CMD.Dispose()
ReturnDR
读取SQL语句的信息,返回DR,用于Access数据库,Excel数据库
PublicFunctionGetDROle(ByValSQLStringAsString,ByValCNAsOleDb.OleDbConnection)AsOleDb.OleDbDataReader
DimDRAsOleDb.OleDbDataReader
DimCMDAsNewOleDb.OleDbCommand
执行SQL语句
PublicFunctionExecSQL(ByValSQLStringAsString)AsBoolean
DimCNAsSqlClient.SqlConnection
CN=ConnSQL()
CMD.ExecuteNonQuery()
ReturnTrue
ReturnFalse
执行SQL语句,用于Access数据库,Excel数据库
PublicFunctionExecSQLOle(ByValSQLStringAsString,ByValCNAsOleDb.OleDbConnection)AsBoolean
执行SQL语句,返回一个字符值
PublicFunctionGetValue(ByValSQLStringAsString,ByRefsValueAsString)AsBoolean
DR=GetDR(SQLString,CN)
IfDR.ReadThen
sValue=Trim(DR.Item(0).ToString)
DR.Close()
Else
没有取到任何值。
执行SQL语句,返回一个字符值,用于Access数据库,Excel数据库
PublicFunctionGetValueOle(ByValSQLStringAsString,ByValCNAsOleDb.OleDbConnection)AsString
DR=GetDROle(SQLString,CN)
ReturnTrim(DR.Item(0).ToString)
执行SQL语句,返回取得的字段值
PublicFunctionExecSQLGetVal(ByValSQLStringAsString,ByRefValues()AsString)AsBoolean
得到需要得到的字段和数量
DimFields()AsString
DimFieldsCount,iAsInteger
DimFieldsStrAsString
DimBeginstr,EndStrAsInteger
SQLString=SQLString.ToLower.Trim
Beginstr=7
EndStr=SQLString.IndexOf("
from"
)-6
FieldsStr=Mid(SQLString,Beginstr,EndStr).Trim
IfFieldsStr="
*"
不能使用[*]作为字段查询"
Fields=FieldsStr.Split("
"
)
FieldsCount=Fields.GetUpperBound(0)
ReDimValues(FieldsCount)
Fori=0ToFieldsCount
Values(i)=DR.Item(i).ToString
Next
执行SQL语句,返回取得的字段值。
用于Access数据库,Excel数据库
PublicFunctionExecSQLOleGetVal(ByValSQLStringAsString,ByValCNAsOleDb.OleDbConnection,ByRefValues()AsString)AsBoolean
执行SQL脚本
PublicFunctionExecSQLFile(ByValSQLFileAsString)AsBoolean
IfDir(SQLFile)="
没有该文件
执行SQL脚本失败。
SQLFile&
文件存在
DimSRAsStreamReader
DimFSAsFileStream
FS=NewFileStream(SQLFile,FileMode.Open)
ex.Message
SR=NewStreamReader(FS,System.Text.ASCIIEncoding.Default)
Dimi,countAsInteger
DimSQLAsString
DimBiaoZHuAsString
DimExceSQLAsString
DimItemAsObject
Item=SR.ReadLine
WhileNotItemIsNothing
SQL=Item&
IfSQL.Substring(0,2).ToUpper<
>
GO"
ExceSQL=ExceSQL&
SQL&
Chr(13)&
Chr(10)
IfTrim(ExceSQL)<
IfNotExecSQL(ExceSQL)Then
ExceSQL="
EndWhile
读完文件之后,如果还有语句没有执行,说明没有GO语句
IfExceSQL<
SR.Close()
FS.Close()
PublicFunctionExecSQLFileOle(ByValSQLFileAsString,ByValCNAsOleDb.OleDbConnection)AsBoolean
ExecSQLOle(ExceSQL,CN)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- ClsConn