Maksudnya gimana ya. Mau menambah kolom (tabel dari 3 kolom jadi 4 kolom) atau menambah record pada sebuah kolom (tabel 20 record jadi 21 record) atau meng-update sebuah kolom pada sebuah record (tabel 20 record diubah isi kolom ke 3 nya pada record ke 14 dengan sebuah data baru) ?
Kid. On Sat, Nov 26, 2011 at 16:06, ppc lambda <[email protected]> wrote: > ** > > > ** > > para pakar Excel mohon bantuannya > permasalahannya adalah perintah ( rst.Fields.Append adt, adNumeric > ) pada kode dibawah tidak bisa menambah kolom pada database Access > > sudilah kiranya para pakar membantu menyelesaikan permasalahan ini > terimakasih > Private Sub Cmd_Out_Click() > Dim upDt As String, adDt As String, b As Long > a = 0 > b = 0 > Set rst = New ADODB.Recordset > sDBCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ > "Data Source=" & ThisWorkbook.Path & "\db1.mdb" & ";" > Set db = New ADODB.Connection > db.Open sDBCon > rst.Open "OUT", db > rst.MoveFirst > While Not rst.EOF > If InStr(LCase$(Trim$(rst.Fields("PN").Value)), > LCase$(Trim$(Cmb_Part.Value))) Then > For Each Rsk In rst.Fields > If InStr(LCase$(Trim$(Rsk.Name)), LCase$(Trim$(txt_tgl.Value))) Then > b = 1 > upDt = "Update OUT SET " & Rsk.Name & " = '" & txt_Out.Value & "' > WHERE PN='" & Cmb_Part.Value & "'" > db.Execute upDt > MsgBox "kolom ada " & upDt > Exit For > Else > b = 0 > End If > ' db.Execute "Update OUT " & _ > "SET 09_Nov_11 = " & _ > "'20'" & _ > " WHERE PN=" & _ > "'7034-1306'" '& ";" > Next Rsk > a = a + 1 > MsgBox "baris ada" > End If > rst.MoveNext > Wend > If b = 0 Then > > adDt = txt_tgl.Value > rst.Fields.Append adt, adNumeric > upDt = "Update OUT SET " & txt_Out.Value & " = '" & txt_Out.Value > & "' WHERE PN=" & Cmb_Part.Value & ";" > db.Execute upDt > MsgBox "kolom baru saja di tambah" > End If > If a = 0 Then > MsgBox "Boz data belum ada lhooo", vbInformation > ' lbl_database.Visible = True > End If > db.Close > Set db = Nothing > Set rst = Nothing > Set Rsk = Nothing > End Sub > > > Terimakasih > Best Regard > <>.<>.<>.<>.<>.<>. > sidoel > > >
<<amaizrul.gif>>
