回覆列表
  • 1 # dsysz2411

    比如有個asp.net(vb.net)連線sqlserver2000資料庫的連線模組(module):ModuleMdlCommonPublictxtSQLAsString"存放SQL語句PublicDBSetAsDataSet"查詢得到的記錄集PublicErrorMsgAsString"存放錯誤資訊PublicFunctionExecuteSQL(ByValstrSQLAsString,ByReferrMsgAsString)AsDataSetDimcnnAsSqlClient.SqlConnectionDimcmdAsNewSqlClient.SqlCommand()DimadptAsSqlClient.SqlDataAdapterDimrstAsNewDataSet()DimSplitSQL()AsStringerrMsg=""TrySplitSQL=Split(strSQL)cnn=NewSqlClient.SqlConnection("datasource=(local);initialcatalog=urp;userid=sa;pwd=1234")IfInStr("INSERT,DELETE,UPDATE",UCase$(SplitSQL(0)))Thencmd.Connection=cnncmd.Connection.Open()cmd.CommandText=strSQLcmd.ExecuteNonQuery()Elseadpt=NewSqlClient.SqlDataAdapter(strSQL,cnn)adpt.Fill(rst)ExecuteSQL=rstEndIfCatchexAsExceptionerrMsg=ex.MessageFinallyrst=Nothingcnn=NothingEndTryEndFunctionEndModule呼叫時在asp.net後臺寫上txtSQL="SELECT*FROMuser";DBSet=ExecuteSQL(txtSQL,ErrorMsg)就可以查詢db返回結果了。

  • 中秋節和大豐收的關聯?
  • 新版《倚天屠龍記》周芷若,趙敏,楊不悔,小昭,殷離誰最漂亮,你們最喜歡誰?