Re: [Programmer-VB] Re: MySQL Export to filename.SQL --> (Maksudnya Pakai VB Tapi udah bisa Thanks)

Mon, 26 Jun 2006 21:29:06 -0700

Mas Purwedi Kurniawan saya tadi nggak baca secara cermat heeee.....

memang script saya agak panjang banget :
My Script :
aktifkan class Microsoft ActiveX Data Object 2.1 Library
aktifkan class Microsoft Scripting Runtime

Option Explicit
Private Const mksConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};DESC=;Database=dbkanis;Server=Localhost;User=ageng;password=remoteMySQL;port=3306;SMTP=;OPTION=;"

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sSql As String
Dim strA As String
Dim fso As New Scripting.FileSystemObject
Dim txtFile As Scripting.TextStream

With cn
    .ConnectionString = mksConnectionString
    .Open
End With

sSql = "SELECT * FROM stokon"
rst.Open sSql, cn
Set txtFile = fso.CreateTextFile("C:\Test.sql", True)
Do While Not rst.EOF
    txtFile.Write ("INSERT INTO stokon VALUES('" & rst("prod_id") & "', '" & rst("cust_id") & "', '" & rst("stok_awal") & "', '" & rst("mutasi") & "', '" & Format(rst("last_act"), "yyyy-MM-dd") & "');" & vbCrLf)
rst.MoveNext
Loop
   
End Sub


ok thanks banget to rekan-rekan semuanya.
u Mas Purwedi Kurniawan Sorry banget atas ketidak telitian Aku Heee....
I want try your code..
Succes For All

Thanks
Regards
Purwedi Kurniawan <[EMAIL PROTECTED]> wrote:
hehehe.. sip kalau udah ketemu mas, tapi sebenarnya sih maksud dari jawaban saya itu jg pakai vb :)
jdnya spt ini:
 
dim oCn as new adodb.connection
with oCn
.connectionstring = blalalla
.open
.execute "perintah mysqldumpnya disini
end with
 
set ocn = nothing
 
yaaa pokoknya kayak gitulah, simple banget sih sebenarnya.
 
best regards
[wwn]
 
On 6/27/06, ageng_setia_wan <[EMAIL PROTECTED]> wrote:
Hallo rekan-rekan

Hallo thanks To All.
Maksud saya pakai VB. tapi saya udah dapat solusinya. saya harus
aktifkan class scripting rountime. but thanks for all attention.

Thanks
regards

--- In [email protected], "Purwedi Kurniawan"
<[EMAIL PROTECTED]> wrote:
>
> buat koneksi ke database server, terus kirim perintah backup "mysqldump"
> lewat object connection execute atau command object. buat details
option apa
> saja yg bisa dipakai, liat helpnya mysql dg keyword mysqldump.
>
> contoh command stringnya kayak gini:
> *mysqldump --opt db_name > backup-file.sql*
>
> sincera
> [wwn]
>
> On 6/27/06, ageng_setia_wan <[EMAIL PROTECTED]> wrote:
> >
> > Hallo rekan-rakan semua Apa Khabar?
> >
> > Begini rekan-rekan saya ada masalah yaitu membuat program membackup
> > Server Database MySQL ke file SQL (*.SQL).
> > Apakah reka-rekan bisa memberi solusi dari permasalahan saya?
> >
> > Thanks
> > Regards
>

Do you Yahoo!?
Everyone is raving about the all-new Yahoo! Mail Beta. __._,_.___

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




SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



__,_._,___

Kirim email ke