Upload file gambar ke mysql menggunakan vba access

 To upload an image file to MySQL using VBA in Microsoft Access, you can use the ADODB.Stream object to read the contents of the file and then execute an INSERT query to save the file data to a MySQL database. Here is an example of how you can do this:

' Create a connection to the MySQL database

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection

conn.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver}; SERVER=localhost; DATABASE=mydatabase; UID=myusername; PWD=mypassword"

' Create a Stream object to read the file data

Dim strm As ADODB.Stream

Set strm = New ADODB.Stream

' Open the file

strm.Type = adTypeBinary

strm.Open

strm.LoadFromFile "C:\path\to\my_image.jpg"

' Insert the file data into the database

Dim sql As String

sql = "INSERT INTO images (name, data) VALUES ('my_image.jpg', " & strm.Read & ")"

conn.Execute sql

' Close the Stream object and the database connection

strm.Close

conn.Close

In this example, we are using the ADODB.Stream object to read the contents of the file as binary data, and then executing an INSERT query to save the file data to a MySQL database table called images. This table should have two columns: name to store the file name, and data to store the file data.

Keep in mind that to be able to insert binary data into a MySQL database, you will need to use a BLOB data type for the data column in the images table. You can do this by using the BLOB keyword in your CREATE TABLE statement, like this:

CREATE TABLE images (

  id INT NOT NULL AUTO_INCREMENT PRIMARY KEY,

  name VARCHAR(255) NOT NULL,

  data BLOB NOT NULL

)

I hope this helps. Let me know if you have any other questions.

Terimaksih

Tweet

Subscribe to receive free email updates: