Autor | Zpráva | ||
---|---|---|---|
Pan_snek Profil * |
#1 · Zasláno: 23. 2. 2008, 00:03:20
Dobrý den,
dokázal by mi něko poradit nejoptimálnější postup, jak z jednoho Excelu , kde jsou uloženy data v CZ a RU .. vyexporotva tyto data do databze na serveru MySQL , tak aby se data zachovala ? |
||
Joker Profil |
#2 · Zasláno: 23. 2. 2008, 10:14:09
Pan_snek
dokázal by mi něko poradit nejoptimálnější postup Nedokázal. "Nejoptimálnější" neexistuje, optimální = nejlepší, nic lepšího už není ;-) Ale mohlo by fungovat třeba z Excelu uložit CSV soubor v kódování UTF-8 a pak ho do databáze importovat. |
||
Časová prodleva: 4 měsíce
|
|||
marek.tichy.dis@emai l.cz Profil * |
#3 · Zasláno: 6. 7. 2008, 20:54:20
Sub ahoj()
'Je nutné mít inicializováno v Tools / References / Microsoft ActiveX Data Objects Library x.x 'CREATE CONNECTION OBJECT AND ASSIGN CONNECTION STRING Dim conn As ADODB.Connection Set conn = New ADODB.Connection conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _ & "SERVER=192.168.3.7;" _ & "DATABASE=test;" _ & "UID=LOGIN;" _ & "PWD=Heslo;" _ & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384 conn.CursorLocation = adUseClient conn.Open 'CREATE TABLE FOR SAMPLE CODE conn.Execute "CREATE TABLE files(" _ & "file_id SMALLINT UNSIGNED AUTO_INCREMENT NOT NULL PRIMARY KEY," _ & "file_name VARCHAR(64) NOT NULL," _ & "file_size MEDIUMINT UNSIGNED NOT NULL," _ & "file MEDIUMBLOB NOT NULL)" 'OPEN RECORDSET FOR WRITING Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim mystream As ADODB.Stream Set mystream = New ADODB.Stream mystream.Type = adTypeBinary rs.Open "SELECT * FROM files WHERE 1=0", conn, adOpenStatic, adLockOptimistic rs.AddNew mystream.Open mystream.LoadFromFile "c:\myimage.gif" rs!file_name = "myimage.gif" rs!file_size = mystream.Size rs!file = mystream.Read rs.Update mystream.Close rs.Close 'OPEN RECORDSET TO READ BLOB rs.Open "Select * from files WHERE files.file_id = 1", conn mystream.Open mystream.Write rs!file mystream.SaveToFile "c:\newimage.gif", adSaveCreateOverWrite mystream.Close rs.Close 'OPEN RECORDSET FOR UPDATE OF BLOB COLUMN rs.Open "Select * from files WHERE files.file_id = 1", conn, adOpenStatic, adLockOptimistic mystream.Open mystream.LoadFromFile "c:\updateimage.gif" rs!file = mystream.Read rs.Update mystream.Close rs.Close 'OPEN RECORDSET TO READ UPDATED IMAGE rs.Open "Select * from files WHERE files.file_id = 1", conn mystream.Open mystream.Write rs!file mystream.SaveToFile "c:\newupdatedimage.gif", adSaveCreateOverWrite mystream.Close rs.Close conn.Execute "DROP TABLE files" conn.Close MsgBox "Success! Check your C:\ directory for newimage.gif and newupdatedimage.gif" End Sub |
||
Časová prodleva: 16 let
|
0