Coba pelajari SQL dengan lebih detil lagi pada jenis DDL (Data Definition Language). Untuk mengubah struktur tabel, gunakan Alter Table
misal sudah ada object koneksi db menggunakan ADODB
maka bisa susun query alter table dan eksekusi langsung.
Contoh :
db.Execute "ALTER TABLE myTable ADD COLUMN myUmur NUMERIC"
db.Execute "ALTER TABLE myTable ADD COLUMN myAlamat TEXT[250]"
Jika kolom sudah ada, maka akan muncul error.
Dengan memberi error handler, maka error bisa di trap dan diganti dengan
sebuah pesan, misal
Err.Clear
On Error Resume Next
db.Execute "ALTER TABLE myTable ADD COLUMN myUmur NUMERIC"
IF Err.Number<>0 Then
err.clear
msgbox "kolom myUmur sudah ada."
endif
Wassalamualaikum Wr. Wb.
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>>
