タイトル : Re^2: DATA,DBgridの更新 投稿日 : 2008/03/13(Thu) 10:34 投稿者 : うなぎ犬
來さん。ご返答ありがとうございます。 ご指摘の通りrefreshの箇所をReBindに変更したのですが、 すいません。動作は変わらずでした。 以下がソースです。 Private Sub Command7_Click() Dim Cn As ADODB.Connection Set Cn = New ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set Cn = CreateObject("ADODB.Connection") 'データベースに接続します。決まり文句です。 Cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\Documents and Settings\Miura\デスクトップ\家計簿\kakeibo.mdb" Dim strSqlm As String strSqlm = "" strSqlm = " INSERT INTO KEIHI( 商品名 , 値段 , num ) values ( '" & Text2.Text & "' ,'" & Text5.Text & "' , '" & keihinum & "')" Cn.Execute strSqlm '終了 Cn.Close Set Cn = Nothing Form1.Data1.Connect = Access2000 Form1.Data1.DatabaseName = "C:\Documents and Settings\Miura\デスクトップ\家計簿\kakeibo.mdb" Form1.Data1.RecordSource = "SELECT KEIHI.商品名 , KEIHI.値段 FROM KEIHI ORDER BY num asc ;" Form1.Data1.Refresh ' Form1.DBGrid.Refresh Form1.DBGrid.ReBind Call Command6_Click End Sub |