+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] I Need Help Adding Data to SQL Database with VB.NET (/showthread.php?tid=5829755)
I Need Help Adding Data to SQL Database with VB.NET - Effexion - Apr 26, 2018
I have been following a tutorial on this and discovered he was doing a console app when I was a little late and had to adapt it a little to take values from my form. Here is my code. I can create a DB but it doesn't add any information. Thanks in advance:
Code
Imports MySql.Data.MySqlClient
Imports System.Data.SQLite
Public Class frmAdd
Private Sub btnPhoto_Click(sender As Object, e As EventArgs) Handles btnPhoto.Click
''Allow usr to choose image
OpenFileDialog1.InitialDirectory = "C:/"
OpenFileDialog1.Title = "Please choose a photo."
OpenFileDialog1.Filter = "JPEG files (*.jpg)|*.jpg|GIF files (*.gif)|*.gif|All files (*.*)|*.*"
OpenFileDialog1.ShowDialog()
''Open image in picturebox
PictureBox1.BackgroundImage = Image.FromFile(OpenFileDialog1.FileName)
End Sub
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
Dim title As String = Trim(txtName.Text)
Dim genus As String = Trim(txtGenus.Text)
Dim species As String = Trim(txtSpecies.Text)
Dim common As String = Trim(txtCommon.Text)
Dim picture As Image = PictureBox1.BackgroundImage
''Handles checkboxes. Probably won't use this way.
Dim temper As String
If chkDocile.Checked = True Then
temper = "Docile"
ElseIf chkAggressive.Checked = True Then
temper = "Defensive"
ElseIf chkMental.Checked = True Then
temper = "Mental"
End If
''create database
Dim location As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim fileName As String = "myDataBase.db"
Dim fullpath As String = System.IO.Path.Combine(location, fileName)
Dim connectionString As String = String.Format("Data Source = {0}", fullpath)
If Not duplicateDatabase(fullpath) Then
Dim createTable As String = "CREATE TABLE `Tarantulapp-DB` (
`Name` TEXT,
`Genus` TEXT,
`Species` TEXT,
`CommonName` TEXT,
`Temperament` TEXT,
`VenomPotency` TEXT,
`Sex` TEXT,
`LastMolt` DATE,
`LastFeed` DATE,
`LastHoming` DATE,
`AverageTemperature` INTEGER,
`AverageHumidity` INTEGER,
`Notes` TEXT
);"
Using Sqlconn As New SQLiteConnection(connectionString)
Sqlconn.Open()
Dim cmd As New SQLiteCommand(createTable, Sqlconn)
cmd.ExecuteNonQuery()
End Using
End If
End Sub
Private Function duplicateDatabase(fullpath As String) As Boolean
Return System.IO.File.Exists(fullpath)
End Function
Public Function insertUsername(username As String, connectionString As String, title As String)
Using SQLconn As New MySqlConnection(connectionString)
Dim insertUserQuery As String = "INSERT INTO Tarantulapp-DB(Name) VALUES(title)"
Dim cmd As New SQLiteCommand(insertUserQuery)
cmd.Parameters.AddWithValue("title", Name)
SQLconn.Open()
cmd.ExecuteNonQuery()
End Using
End Function
''Add to database
End Class