VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何在表中保存单引号?
发表评论(0)作者:, 平台:, 阅读:13729, 日期:2000-04-02




主題: 如何在資料庫中存入單引號?

來源:Mini Gopinath / Visual Basic Programmer's Journal

版本:VB6 / VB5 / VB4-32 / VB4-16 / VB3






當您想要新增一筆資料到 Access 或 Oracle 時,若文字欄位中含有單引號,便會產生錯誤!


在以下的例子中,我們告訴您如何使用 Chr$(34) 將含有單引號之字串存入 Jet database engine 中!


Private Sub CmdAddNew_Click()

Dim dbCustomer As Database ' 宣告資料庫

Dim strSql As String ' SQL 字串

Dim strodbc As String ' ODBC 字串


' 以下為資料庫中客戶檔之三個欄位變數宣告

Dim strCustID As String ' 客戶代碼

Dim strFirstName As String ' 客戶名稱

Dim strAddress As String ' 客戶地址


strodbc = "odbc;uid=scott;pwd=tiger;dsn=myconnect"

Set dbCustomer = OpenDatabase("myconnect", dbDriverNoPrompt, False, strodbc)


strCustID = "A003"

strFirstName = "Annie"

strAddress = "Reflection's"


strSql = "insert into CUSTOMER values('" & strCustID & "'"

strSql = strSql & ",'" & strFirstName & "',"

strSql = strSql & Chr(34) & strAddress & Chr(34) & ")"


dbCustomer.Execute (strSql)

dbCustomer.Close

End Sub

'如果您還想要更詳細的資料,您可以參考 Microsoft Knowledge Base 中的 Q147687。