insert data urut di mysql secara bersamaan

manyun

mas / mb mau tanya,
gimna query buat nginputin data urut secara bersamaan di mysql.
misal :
tabel_kurs
tanggal || mu

saya ingin input data ke tabel kurs dari tanggal 01-10-2014 sampai dengan tanggal 05-10-2014 dengan mu USD dengan 1 query.
nanti hasilnya menjadi :

tabel_kurs
tanggal         ||     mu
01-10-2014    ||    USD
02-10-2014    ||    USD
03-10-2014    ||    USD
04-10-2014    ||    USD
05-10-2014    ||    USD

tolong bantuannya, terimakasih

jerapah

INSERT INTO table (field1, field2) VALUES ('aaa','aaa'), ('bbb','bbb'), ('ccc','ccc'), ('ddd','ddd'), ('eee','eee')

manyun

lhah kalo saya mau insert dalam 1 bulan data yg sama beda tanggal gmna dong, mosok ngetik 1 1.
setauku ada caranya, tapi saya lupa, hehe

jerapah

emang ada yg nyuruh elo ketik manual ? )

elo pan bisa bikin koding supaya query string elo bisa tersusun jadi :
INSERT INTO table (field1, field2) VALUES ('aaa','aaa'), ('bbb','bbb'), ('ccc','ccc'), ('ddd','ddd'), ('eee','eee')

manyun

ye. .
kalo q ngarti mah q g tanya mas,

:-/

jerapah

elo koding pake apa ?

manyun

database mysql
prog nya pake vb6

jerapah

masa gitu aja kagak ada ide to mas ...

pake LOOP

strQuery = "INSERT INTO table (field1, field2) VALUES "
strValues = ""
dtStart = DateSerial(2014, 10, 1)
dtEnd = DateSerial(2014, 10, 5)
intStart = CLng(Int(dtStart) - 1)
intEnd = CLng(Int(dtEnd) - 1)

Do Until intStart >= intEnd

  If strValues = "" Then
    strValues = "(..., ...)"
  Else
    strValues = strValues & ", (..., ...)"
  End If

  intStart = intStart + 1

Loop

strQuery = strQuery & strValues



coba elo pikir yg gw bold
itu terakhir strQuery isinya sudah jadi :
INSERT INTO table (field1, field2) VALUES ('aaa','aaa'), ('bbb','bbb'), ('ccc','ccc'), ('ddd','ddd'), ('eee','eee')

manyun

bingung q mas, hahahaa
nih q temuin cara singkat

Private Sub cmdinput_Click()
Dim i As Date
i = Format(i, "dd-MM-yyyy")
tblkurs.Refresh
With tblkurs.Recordset
For i = date1.Value To date2.Value
.AddNew
!tanggal = i
!USD = Format(tusd, "")
!EUR = Format(teur, "")
!YEN = Format(tjpy, "")
!Sin = Format(tsgd, "")
!CHF = Format(tchf, "")
!HKD = Format(thkd, "")
.Update
.MoveNext
Next
end sub

jerapah

hoalah,
elo kagak bilang kalo koneksinya pake recordset

gw kira elo direct execute sql

manyun

hehehe

ya maap. . 

manyun

kalo codingnya tu lebih efektif pake recorset apa tanpa recorset mas?

jerapah

tergantung konsep pengembangan aplikasinya

kalo elo pahamnya ttg penggunaan datagrid, ya larinya pasti pake recordset

manyun

hehehe

owh ya mas, kalo misal q punya textbox isinya inputan kode PO

tiap mau input baru kodenya isinya misal "PO10140001"

itu yg "PO1014" dia muncul otomatis sesuai bukan n tahun, kalo yg "0001" inputan manual dr user.

yang saya tanyakan bisa g kalo yg "PO1014" g bisa di edit, kayak ngelock gt, tp yg 0001 nya bisa.

lobster

yg PO1014 bentuknya label saja, bukan input field