Click here to Skip to main content
15,388,904 members
Home / Discussions / Visual Basic
   

Visual Basic

 
QuestionPooling data from database into Listview with timer Pin
SHAHROL AZMI BIN AMZAT25-May-22 22:53
MemberSHAHROL AZMI BIN AMZAT25-May-22 22:53 
AnswerRe: Pooling data from database into Listview with timer Pin
Dave Kreskowiak26-May-22 5:34
mveDave Kreskowiak26-May-22 5:34 
GeneralRe: Pooling data from database into Listview with timer Pin
SHAHROL AZMI BIN AMZAT26-May-22 14:25
MemberSHAHROL AZMI BIN AMZAT26-May-22 14:25 
GeneralRe: Pooling data from database into Listview with timer Pin
Dave Kreskowiak27-May-22 5:37
mveDave Kreskowiak27-May-22 5:37 
GeneralRe: Pooling data from database into Listview with timer Pin
SHAHROL AZMI BIN AMZAT29-May-22 15:53
MemberSHAHROL AZMI BIN AMZAT29-May-22 15:53 
QuestionWinforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Jo_vb.net18-May-22 8:11
MemberJo_vb.net18-May-22 8:11 
AnswerRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Gerry Schmitz18-May-22 17:49
mveGerry Schmitz18-May-22 17:49 
GeneralRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Jo_vb.net18-May-22 20:53
MemberJo_vb.net18-May-22 20:53 
GeneralRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Gerry Schmitz19-May-22 6:39
mveGerry Schmitz19-May-22 6:39 
GeneralRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Jo_vb.net22-May-22 7:32
MemberJo_vb.net22-May-22 7:32 
GeneralRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Gerry Schmitz23-May-22 11:44
mveGerry Schmitz23-May-22 11:44 
QuestionRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Eddy Vluggen20-May-22 4:15
professionalEddy Vluggen20-May-22 4:15 
AnswerRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Jo_vb.net20-May-22 5:07
MemberJo_vb.net20-May-22 5:07 
GeneralRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Gerry Schmitz20-May-22 5:30
mveGerry Schmitz20-May-22 5:30 
QuestionRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Eddy Vluggen20-May-22 6:08
professionalEddy Vluggen20-May-22 6:08 
AnswerRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Gerry Schmitz21-May-22 5:36
mveGerry Schmitz21-May-22 5:36 
GeneralRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Jo_vb.net20-May-22 6:21
MemberJo_vb.net20-May-22 6:21 
GeneralRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Jo_vb.net29-May-22 0:42
MemberJo_vb.net29-May-22 0:42 
GeneralRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Gerry Schmitz29-May-22 4:58
mveGerry Schmitz29-May-22 4:58 
GeneralRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Eddy Vluggen20-May-22 6:07
professionalEddy Vluggen20-May-22 6:07 
GeneralRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Jo_vb.net20-May-22 6:26
MemberJo_vb.net20-May-22 6:26 
QuestionRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Eddy Vluggen20-May-22 8:10
professionalEddy Vluggen20-May-22 8:10 
AnswerRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Jo_vb.net20-May-22 8:56
MemberJo_vb.net20-May-22 8:56 
SuggestionRe: Winforms VB.Net: Best way to code rules for german cards game "Schafkopf"? Pin
Eddy Vluggen20-May-22 23:02
professionalEddy Vluggen20-May-22 23:02 
QuestionUpdating datagridview with image Pin
Jake Mazur17-May-22 3:23
MemberJake Mazur17-May-22 3:23 
Hi! Can somebody help me. I am beginner. I have a project and need to update datagridview with image column, using Access databse. I have code for insert new row with image and as I understand it can be modified for updating row. I try to modify, but problem is not working. Now no any alarms or errors occurs, database not changed.
Many thanks un advance.

<pre> Private Sub Btn_Save_Click(sender As Object, e As EventArgs) Handles Btn_Update.Click


        Try
            If PhotoPictureBox.Image Is Nothing Then
                If MsgBox("Are you sure you don't want to upload any pictures?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Missing picture") Then
                    Dim CN As New OleDbConnection(connection)
                    CN.Open()

                    Dim Int As String
                    Int = "UPDATE Germany set [Year_of_release]=@year_of_release, [Denomination]=@denomination, [Governing_body]=@governing_body, [Acquired]=@acquired, [Date_of_purchase]=@date_of_purchase, [Course]=@course, [Material]=@material WHERE [ID]=@ID"


                    Dim cmd As New OleDbCommand(Int, CN)

                    'cmd.Parameters.Add("@ID", OleDbType.VarChar).Value = IDTextBox.Text
                    cmd.Parameters.Add("@year_of_release", OleDbType.VarChar).Value = Year_of_releaseDateTimePicker.Value
                    cmd.Parameters.Add("@denomination", OleDbType.VarChar).Value = DenominationTextBox.Text
                    cmd.Parameters.Add("@governing_body", OleDbType.VarChar).Value = Governing_bodyTextBox.Text
                    cmd.Parameters.Add("@acquired", OleDbType.VarChar).Value = AcquiredTextBox.Text
                    cmd.Parameters.Add("@date_of_purchase", OleDbType.VarChar).Value = Date_of_purchaseDateTimePicker.Value
                    cmd.Parameters.Add("@course", OleDbType.VarChar).Value = CourseTextBox.Text
                    cmd.Parameters.Add("@material", OleDbType.VarChar).Value = MaterialTextBox.Text

                    cmd.ExecuteNonQuery()

                    cmd.Dispose()
                    CN.Close()
                    CN.Dispose()
                End If

            Else
                If imgName <> "" Then
                    Dim fs As FileStream
                    fs = New FileStream(imgName, FileMode.Open, FileAccess.Read)

                    Dim picturebytes As Byte() = New Byte(fs.Length - 1) {}
                    fs.Read(picturebytes, 0, System.Convert.ToInt32(fs.Length))
                    fs.Close()

                    Dim CN As New OleDbConnection(connection)
                    CN.Open()

                    Dim Int As String
                    Int = "UPDATE Germany set [Year_of_release]=@year_of_release, [Denomination]=@denomination, [Governing_body]=@governing_body, [Acquired]=@acquired, [Date_of_purchase]=@date_of_purchase, [Course]=@course, [Material]=@material, [Photo]=@photo WHERE [ID]=@ID"


                    Dim imgparam As New OleDbParameter()
                    imgparam.OleDbType = OleDbType.Binary
                    imgparam.ParameterName = "@photo"
                    imgparam.Value = picturebytes

                    Dim cmd As New OleDbCommand(Int, CN)

                    cmd.Parameters.Clear()
                    cmd.Parameters.Add("@ID", OleDbType.VarChar).Value = IDTextBox.Text
                    cmd.Parameters.Add("@year_of_release", OleDbType.VarChar).Value = Year_of_releaseDateTimePicker.Value
                    cmd.Parameters.Add("@denomination", OleDbType.VarChar).Value = DenominationTextBox.Text
                    cmd.Parameters.Add("@governing_body", OleDbType.VarChar).Value = Governing_bodyTextBox.Text
                    cmd.Parameters.Add("@acquired", OleDbType.VarChar).Value = AcquiredTextBox.Text
                    cmd.Parameters.Add("@date_of_purchase", OleDbType.VarChar).Value = Date_of_purchaseDateTimePicker.Value
                    cmd.Parameters.Add("@course", OleDbType.VarChar).Value = CourseTextBox.Text
                    cmd.Parameters.Add("@material", OleDbType.VarChar).Value = MaterialTextBox.Text
                    cmd.Parameters.Add(imgparam)

                    cmd.ExecuteNonQuery()

                    cmd.Dispose()
                    CN.Close()
                    CN.Dispose()

                End If





            End If
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try


    End Sub

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.