Discord Server Twitter Donation Youtube Google+
Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
mybb_smilies to picturebox
#1
Here is mybb_smilies to picturebox from Sid number to image location
whats needed 2 textboxes 1 datagridview item and 2 button

here is code code is pretty much the same as mysql browser
oonly difference therte is picturbox code added to display image from data base to pictuirebox


Code Starts Here


form1.vb code

Imports MySql.Data.MySqlClient
Imports System
Imports System.Security.Cryptography
Imports System.Text


Public Class Form1
    Dim cmd As New MySqlCommand
    Dim da As New MySqlDataAdapter
    Public total As Integer
    Dim publictable As New DataTable
    'declare conn as connection and it will now a new connection because 
    'it is equal to Getconnection Function
    Dim con As MySqlConnection = jokenconn()

    Public Function jokenconn() As MySqlConnection
        Return New MySqlConnection("server=dbname;user id=mybb;password=your-password-here;database=mybb")
    End Function






    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        Dim publictable As New DataTable
        Dim sql As String
        sql = TextBox1.Text
        Try
            'bind the connection and query
            With cmd
                .Connection = con
                .CommandText = sql
            End With
            'Gets or sets a Transact-SQL statement or stored procedure used to select records in the data source.
            da.SelectCommand = cmd
            da.Fill(publictable)
            'get the datasource from publictable and passed to datagridview
            DataGridView1.DataSource = publictable

            'dispose the dataadapter
            da.Dispose()
        Catch ex As Exception

            MsgBox(ex.Message)

        End Try
        con.Close()
        da.Dispose()

    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.BorderStyle = BorderStyle.None
        TextBox1.Text = "select * from mybb_smilies"
        Button1.PerformClick()
        Me.WindowState = FormWindowState.Maximized
    End Sub


'new code start here
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim publictable As New DataTable
        Dim sql As String
        sql = TextBox1.Text
        Try
            'bind the connection and query
            With cmd
                .Connection = con
                .CommandText = sql
            End With
            'Gets or sets a Transact-SQL statement or stored procedure used to select records in the data source.
            da.SelectCommand = cmd
            da.Fill(publictable)
            'get the datasource from publictable and passed to datagridview
            PictureBox1.ImageLocation = RichTextBox1.Text
            RichTextBox1.Text = " Site url here          /forum/" & DataGridView1.CurrentRow.Cells(0).Value.ToString '// column 1."
            'dispose the dataadapter
            da.Dispose()
        Catch ex As Exception

            MsgBox(ex.Message)

        End Try
        con.Close()
        da.Dispose()
    End Sub



End Class


image

   
Reply
#2
Wow I didn't see this, Thank you my bro Wink

[Image: 4Kxb0N1.gif]
We Are Anonymous, We Are Legion, We Do not Forgive, We do not Forget
Expect Us
Reply




Users browsing this thread: 1 Guest(s)