如何取DataGrid中的数据并插入数据库中?

Question

我想取出DataGrid中的所有数据数据，并插入到ORACLE中，以下是我的代码
：
其中 dgData为DataGrid控件cn.BeginTrans           '开始更新事务
 
For l = 1 To dgData.VisibleRows   'dgData.VisibleRows
  dgData.Row = l
  dgData.Col = m
 For m = 0 To dgData.VisibleCols
 '   dgData.Col = m
 Select Case m
        Case 0
             iCardId = dgData.Text
        Case 1
             strCardStatus = dgData.Text
        Case 2
             iHospitalId = dgData.Text
        Case 3
             strCardNumber = dgData.Text
        Case Else
             strIllneaseName = dgData.Text
 End Select
 Next mcn.Execute "Insert INTO DATA_CDC_ALL (CardId ,cardstatus) " & _
           "VALUES(iCardId ,strCardStatus)"
Next l
 cn.CommitTrans     '提交事务提交后数据库没有数据，但是把VALUES中的几个变量换成常量就可以插入到数据库中
请各位高手帮忙，急啊！谢谢了！

Answer 1

cn.Execute "Insert INTO DATA_CDC_ALL (CardId ,cardstatus) " & _
           "VALUES(iCardId ,strCardStatus)"
-------------------
iCardId,strCardStatus这两个是变量吧，
改为：
cn.Execute "Insert INTO DATA_CDC_ALL (CardId ,cardstatus) " & _
           "VALUES('" & iCardId & "' , '" & strCardStatus & "')"
---------------------------
你试试……