我的欄位是由使用者輸入後,暫存到grid中,在按下儲存後,會將grid中的資料,變成資料表的欄位,但欄位不能有!#@$等符號,所以
我寫了on error goto R_error 來顯示訊息,但發生了一個問題,就
是在我把error的地方,改成正確的,按儲存之後,error訊息仍一直出現,導致我的程式無法run下去,為什麼呢?
On Error GoTo R_error
If rs.EOF = True Then
sql = "CREATE TABLE " & Label_rnum.Caption & " ("
sql = sql & "number int primary key,"
For QuestIndex = 0 To Text_questions - 1
sql = sql & "" & MSFlexGrid2.TextMatrix(QuestIndex, 0) & " varchar(20),"
Next
sql = sql & ")"
cn.Execute sql
MsgBox "恭喜建立資料表!"
rs.MoveFirst
MSFlexGrid2.Clear
End If
R_error:
MsgBox Error$ & "結果欄位不可有空白,亦不可有!@#$%^...等符號", vbCritical, "create_rtable Err [" & Err.Number & "]"
我寫了on error goto R_error 來顯示訊息,但發生了一個問題,就
是在我把error的地方,改成正確的,按儲存之後,error訊息仍一直出現,導致我的程式無法run下去,為什麼呢?
On Error GoTo R_error
If rs.EOF = True Then
sql = "CREATE TABLE " & Label_rnum.Caption & " ("
sql = sql & "number int primary key,"
For QuestIndex = 0 To Text_questions - 1
sql = sql & "" & MSFlexGrid2.TextMatrix(QuestIndex, 0) & " varchar(20),"
Next
sql = sql & ")"
cn.Execute sql
MsgBox "恭喜建立資料表!"
rs.MoveFirst
MSFlexGrid2.Clear
End If
R_error:
MsgBox Error$ & "結果欄位不可有空白,亦不可有!@#$%^...等符號", vbCritical, "create_rtable Err [" & Err.Number & "]"
全站熱搜
留言列表