说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何在表中保存单引号?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何在表中保存单引号?


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

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘