93.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

如何在表中保存单引号？


版本：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