Dim MyDB As New ADODB.Connection
'設定MyDB為一個新的ADODB的Connection物件
Dim MyRec As New ADODB.Recordset
'設定MyRes為一個新的ADODB的Recordset物件
Dim objRec As ADODB.Recordset
Dim objFld As ADODB.Field
Private Sub Command1_Click()
On Error Resume Next
MyDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "/xxxx.mdb"
MyRec.Open "TRANSFORM Count(conum) AS conum SELECT callnum FROM digeyes WHERE telnum='" & Text1(0).Text & "' OR telnum='" & Text1(1).Text & "'OR telnum='" & Text1(2).Text & "'GROUP BY callnum PIVOT telnum;", MyDB, 1, 1
Set objRec = New ADODB.Recordset
objRec.Fields.Append "號碼", adInteger
objRec.Fields.Append Text1(0).Text, adInteger
objRec.Fields.Append Text1(1).Text, adInteger
objRec.Fields.Append Text1(2).Text, adInteger
objRec.Open
====================================
Do
objRec.AddNew ("號碼", Text1(0).Text, Text1(1).Text,Text1(2).Text),( MyRec("callnum"), Text1(0).Text, MyRec(Text1(1).Text,myrec(text1(2).text))
MyRec.MoveNext
Loop Until MyRec.EOF
====================================
各位大哥上面框起來的地方,小弟不知要如何處理,讓資料正確的填入資料錄(像access多筆相同資料,計次問題)麻煩教一下吧!我該如何解決??????
Set DataGrid1.DataSource = objRec
End Sub
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(1) 人氣()


留言列表 (1)

發表留言
  • SPENCER YANG
  • 1)假如你不是使用自動編號,可以參考下列二項主題
    請到紀文和網站 VB入門網 http://www.vbguide.com.tw/
    看看 "個個擊破" 單元中的
    284 如何自動取得序號?(一)
    285 如何自動取得序號?(二)
    2)假如你是使用自動編號,新增記錄時不予理會,由後端資料庫自行處理。