查看完整版本: 如何在表中保存单引号？

如何在表中保存单引号？

　　當您想要新增一筆資料到 Access 或 Oracle 時，若文字欄位中含有單引號，便會產生錯誤！
在以下的例子中，我們告訴您如何使用 Chr$(34) 將含有單引號之字串存入 Jet database engine 中！
** 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('"