terima kasih rekan2 atas bantuannya.
pemecahannya udah saya temui kemarin, yaitu seperti ini:
y = nama.Text
For x = 1 To y
rs.Open "select * from tes", cn, adOpenStatic, adLockOptimistic
rs.AddNew
If x = 1 Then
rs("nip") = nip.Text
ElseIf x = 2 Then
rs("nip") = nip.Text
End If
rs.update
rs.close
Next x
----- Original Message ----
From: Ade Aan Wirama <[EMAIL PROTECTED]>
To: [email protected]
Sent: Thursday, December 7, 2006 9:24:19 PM
Subject: Re: Balasan: [indoprog-vb] input berganda
Kalo saya telusuri lagi kayaknya karena rs.addnewnya
diatas For, sedangkan rs.updatenya sebelum next
coba dirubah seperti ini..
y = 2
For x = 1 To y
rs.addnew
If x = 1 Then
rs("nama") = nama.Text
ElseIf x = 2 Then
rs("nama") = nama.Text
End If
rs.update
Next x
kalo gak bisa juga, databasenya pake apa? terus ada
field identitynya gak?
semoga membantu ya..
tks & rgds,
Ade Aan Wirama
--- Rusli <[EMAIL PROTECTED] com> wrote:
> udah seperti ini
> rs.CursorLocation = adUseClient
> salah ga' penulisannya? ??
>
> ----- Original Message ----
> From: Ade Aan Wirama <[EMAIL PROTECTED] com>
> To: indoprog-vb@ yahoogroups. com
> Sent: Thursday, December 7, 2006 11:41:57 AM
> Subject: Re: Balasan: [indoprog-vb] input berganda
>
> mas rusli, cursornya pake server-side atau
> client-side?
>
> coba dirubah jadi client-side.
>
> Tks & Rgds,
> Ade Aan Wirama
>
> --- Rusli <[EMAIL PROTECTED] com> wrote:
>
> > rs.addnew udah saya tulis, maaf lupa di lampirin.
> >
> > rs.addnew
> > y = 2
> > For x = 1 To y
> > If x = 1 Then
> > rs("nama") = nama.Text
> > ElseIf x = 2 Then
> > rs("nama") = nama.Text
> > End If
> > rs.update
> > Next x
> >
> >
> > ----- Original Message ----
> > From: Andristyanto Sagitta Pratama
> > <aiki_hokage37@ yahoo.co. id>
> > To: indoprog-vb@ yahoogroups. com
> > Sent: Wednesday, December 6, 2006 2:04:53 PM
> > Subject: Balasan: [indoprog-vb] input berganda
> >
> > boleh nanya? anda mau menyimpan data ato mau
> update
> > data? kalo mau menyimpan data sepertinya anda lupa
> > untuk menuliskan rs.addnew-nya. . coba taruh
> > perintah
> > itu di bawah perintah for.
> >
> > semoga membantu...
> > --- Rusli <[EMAIL PROTECTED] com> wrote:
> >
> > > VBers
> > > mau tanya dong
> > >
> > > saya punya database yg isinya ID(auto) dan Nama
> > > dan saya punya script
> > > y = 2
> > > For x = 1 To y
> > > If x = 1 Then
> > > rs("nama") = nama.Text
> > > ElseIf x = 2 Then
> > > rs("nama") = nama.Text
> > > End If
> > > rs.update
> > > Next x
> > >
> > > tapi timbul message error " identity cannot be
> > > determined for newly inserted rows".
> > > kenapa yaa..mohon bantuan.
> > >
> > >
> > >
> > >
> > ____________ _________ _________ _________
> _________
> > _________ _
> > > Do you Yahoo!?
> > > Everyone is raving about the all-new Yahoo! Mail
> > > beta.
> > > http://new.mail. yahoo.com
> > >
> > > [Non-text portions of this message have been
> > > removed]
> > >
> > >
> >
> >
> > ____________ _________ _________ _________
> _________
> > ________
> > Lelah menerima spam? Surat Yahoo! mempunyai
> > perlindungan terbaik terhadap spam.
> > http://id.mail. yahoo.com/
> >
> >
> >
> >
> >
> >
> ____________ _________ _________ _________ _________
> _________ _
> > Any questions? Get answers on any topic at
> > www.Answers. yahoo.com. Try it now.
> >
> > [Non-text portions of this message have been
> > removed]
> >
> >
>
> ____________ _________ _________ _________ _________
> _________ _
> Have a burning question?
> Go to www.Answers. yahoo.com and get answers from
> real people who know.
>
>
>
>
>
>
____________ _________ _________ _________ _________ _________ _
> Need a quick answer? Get one in minutes from people
> who know.
> Ask your question on www.Answers. yahoo.com
>
> [Non-text portions of this message have been
> removed]
>
>
____________ _________ _________ _________ _________ _________ _
Yahoo! Music Unlimited
Access over 1 million songs.
http://music. yahoo.com/ unlimited
____________________________________________________________________________________
Cheap talk?
Check out Yahoo! Messenger's low PC-to-Phone call rates.
http://voice.yahoo.com
[Non-text portions of this message have been removed]
