Aturan maen dalam pembuatan aplikasi software program komputer salah satunya mengerti tentang structured query language.(SQL). Dalam SQL , tindakan simpan data adalah INSERT, ubah UPDATE dan hapus DELETE.
strS1 = "select* from stok where " _
+ " kode_barang='" & AllowChar(Txtkode_barang.Text) & "'"
Set rsData = cN.Execute(strS1) '
If rsData.EOF Then
strS1 = "insert into stok ( kode_barang," _
+ "nama_barang,kode_kategoribrg,stok," _
+ "harga_jual,harga_beli,lokasi,komisi,komisi_Astek,satuan) values ('" & AllowChar(Txtkode_barang.Text) & "','" & AllowChar(TxtNama_barang.Text) & "'," _
+ "'" & AllowChar(cboKode_kategoriBrg.Text) & "'," & txtStokMula & "," _
+ "" & txtHarga_jual & "," & txtHarga_beli & ",'" & AllowChar(txtLokasi) & "',0,0,'" & Trim(AllowChar(CboSatuan.Text)) & "')"
cN.Execute (strS1)
MsgBox "data baru berhasil disimpan"
Else
MsgBox "data barang sudah ada" ''update pd pembelian
End If
Ini cuplikan coding,.yg biasa sy gunakan...semua suka-suka kita..semua style baek..tinggal ”trouble shooting” ke depan cepat dan mudah update nya
No comments:
Post a Comment