di txt_tgl.value saya menuliskan 10_Nov_11 hasilnya gagal dan di tabel OUT saya menambahkan kolom secara manual dengan nama kolom 09_Nov_11 dan itu berhasil saya juga mencoba mengetikkan txt_tgl.value dengan huruf A itu juga gagal
mohon bantuannya Terimakasih Best Regard <>.<>.<>.<>.<>.<>. Sidoel ----- Original Message ----- From: Kid Mr. To: [email protected] Sent: Tuesday, November 29, 2011 10:28 AM Subject: Re: [belajar-excel] Tambah kolom di database mungkin isian di txt_tgl tidak sesuai aturan penamaan kolom. Coba cek di ms acccess, apa saja rules-nya. Kid. On Tue, Nov 29, 2011 at 10:18, ppc lambda <[email protected]> wrote: 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: [email protected] 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 <[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>>
