Re: [belajar-excel] Tambah kolom di database

[ppc lambda]

Mr kid dan master yang lain saya menemui jala buntu
saya menggunakan code dibawah namun tidak menambah kolom, padahal di tabel OUT 
tidak ada nama kolom yang sesui denagn textbox
nama tabel " OUT ",nama kolom yang di tambah sesuai textbox " txt_tgl.Value  "
mohon bantuannya
Dim adDt As String
 adDt = "ALTER TABLE OUT ADD COLUMN " & txt_tgl.Value & " NUMERIC"
Err.Clear
On Error Resume Next
db.Execute adDt
If Err.Number <> 0 Then
     Err.Clear
     db.Execute adDt
     MsgBox "kolom tanggal sudah ada.  >" & txt_tgl.Value
End If


Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
@bdul
SAMI -*- Planning Production Control
Lambda
  ----- Original Message ----- 
  From: Kid Mr. 
  To: belajar-excel@yahoogroups.com 
  Sent: Monday, November 28, 2011 4:04 PM
  Subject: Re: [belajar-excel] Tambah kolom di database


    
  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 <ppc...@sami.co.id> 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>>