Prikazi cijelu temu 02.03.2017 13:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Scripta vo MYSQL Procedura
evo ti i u Vb.
PreuzmiIzvorni kôd (Visual Basic):
  1. Dim conn As ADODB.Connection
  2.  
  3. Private Sub Command1_Click()
  4. Dim SQL As String
  5. Dim rs As ADODB.Recordset
  6. Dim mystream As ADODB.Stream
  7.  
  8.  
  9. Set rs = New ADODB.Recordset
  10. Set mystream = New ADODB.Stream
  11. SQL = "LOAD DATA INFILE 'c:/csv/artikli.csv' " _
  12.    & "INTO TABLE artikli " _
  13.    & "FIELDS TERMINATED BY ';' " _
  14.    & " ENCLOSED By '\" & Chr(34) & "'"
  15.    Me.Text1.Text = SQL
  16. conn.Execute SQL
  17. End Sub
  18.  
  19. Private Sub Form_Load()
  20.  
  21. Set conn = New ADODB.Connection
  22.  
  23. conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
  24.             & "SERVER=127.0.0.1;" _
  25.             & "DATABASE=2017_test;" _
  26.             & "UID=root;" _
  27.             & "PWD=xxxxxx;"
  28. conn.CursorLocation = adUseClient
  29. conn.Open
  30. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.