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. <[email protected]> > *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>>
