dim cn as new ADODB.Connection,rs as new ADODB.RECORDSET
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & nama file txt lengkap dengan alamat foldernya & " ;", "", ""
rs.open "select * from [namafile#extension],cn, adOpenStatic, adLockReadOnly, adCmdTextwhile not rs.eofsql="insert into table values('" & str(rs(0)) & "')conn.execute sql,,adcmdtextwendket.conn adalah koneksi ke Sql Server atau lain nya.Semoga membantuTerima KasihRudi Hartono SimamoraRudi Hartono Simamora
_________________________________
Dept IT
PT Karisma Aksara Mediatama
Jl. Moh. Toha No. 2, Pondok Cabe
Ciputat - Tangerang 15418
Telp. +62 21 7444555 ext. 230
Fax. +62 21 7411084
Email: [EMAIL PROTECTED]
Indonesia----- Original Message -----From: indra gunawanSent: Sunday, June 11, 2006 7:31 PMSubject: Re: [Programmer-VB] import data
menurut saya stepnya gini :
1. Baca Notepad..
2. Masukin Hasil Bacaan ke dalam List View..
3. Bikin tombol untuk masukin ke SQL
4. Gunakan Val(colum A) pada saat masukinnya
----- Original Message -----
From: "pupunk" <[EMAIL PROTECTED]>
To: < [email protected]>
Sent: Friday, June 09, 2006 1:11 PM
Subject: [Programmer-VB] import data
> dear all,
>
> teman2x, sy punya file txt yg isinya sbb:
> (A) (B)
> 000005421 998754
> 000000541 99751
> 000005555 549812
> 000012546 777541
> dst
>
> nah sy ingin file tsb sy import ke SQL server tapi
khusus utk yg kolom (A)
> angka nol-nya dihilangkan semua shg menjadi sbb:
> (A) (B)
> 5421 998754
> 541 99751
> 5555 549812
> 12546 777541
>
> mohon responds dari teman2x sekalian ya karena
mengingat urgent nih....
> sebelum & sesudahnya sy ucapkan terimakasih
>
> salam,
> pupunk
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
__._,_.___
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
