Kalo gitu tinggal ganti statement PRINT jadi WRITE.
Keterangan selengkapnya bisa dilihat di MSDN.
--- sunardi_kss <[EMAIL PROTECTED]> wrote:
> dear Programmer VB
>
> terima kasih atas sourcenya yang diberikan kepada
> saya. Saya sudah
> coba programnya seperti dibawah ini
>
> Private Sub Command1_Click()
> Dim Filebebas As Integer
> If Not rsKemasan.EOF Then
> rsKemasan.MoveFirst
> Filebebas = FreeFile
> Open "C:\Test.txt" For Output As Filebebas
> While Not rsKemasan.EOF
> Print #Filebebas, rsKemasan!Kode; ",";
> rsKemasan!Kemasan
> rsKemasan.MoveNext
> Wend
> Close #Filebebas
> End If
> rsKemasan.Close
> MsgBox "Transfer selesai"
> End Sub
>
> Private Sub Form_Load()
> BukaDatabase
> End Sub
>
> dan hasil transfer text filenya sebagai berikut :
>
> BP,Bulk Pack
> EB,Exlusive Box
> GB,Gift Box
> GP,Gift Pack
> WB,White Box
> SH,Shrinkwrap
>
> tapi hasil yang saya inginkan adalah sebagai berikut
> :
> "BP","Bulk Pack"
> "EB","Exlusive Box"
> "GB","Gift Box"
> "GP","Gift Pack"
> "SH","Shrinkwrap"
> "WB","White Box"
> ini hasil export text file dari MS ACCESS.
>
> Mohon infonya lagi. terima kasih yah....
>
>
>
________________________________________________________
Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi
Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
