Vbnet Nesnenin Başvurusu Bir Nesnenin Örneğine Ayarlanmadı

23/Ara/17 15:29

Kısayol

Şikayet

Özel Mesaj

2021 Talihlisi
TheAvenqer

Kayıt Tarihi: 09/Şubat/2014

Imports MySql.Data.MySqlClient
Public Class upload
    Dim con As MySqlConnection = New MySqlConnection("BURDA BAGLANTI BİLGİLERİ VAR")
    Dim cmd As MySqlCommand
    Dim READER As MySqlDataReader
    Dim sqlQuery As String
    Dim result As Integer
    Private Sub upload(ByVal sqlQuery As String)
        Try
            With cmd
                .Connection = con
                .CommandText = sqlQuery
            End With
            result = cmd.ExecuteNonQuery
            If result > 0 Then
                MsgBox("Üye bilgisi güncellendi.")
            Else
                MsgBox("Üye bilgisi güncellenemedi.")
            End If
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_yolla.Click
        Dim toplam As Integer = 10
        Try
            con.Open()
            Dim query As String
            query = " SELECT `id` FROM `users` WHERE `user`='" & txtbx_yükleyen.Text & "'"
            READER = cmd.ExecuteReader
            If READER.Read() Then
                Label6.Text = READER.GetString(0)
                Label6.Text = toplam - Label6.Text
            End If
            con.Close()

        Catch ex As Exception
            MessageBox.Show(ex.Message)

        End Try

        sqlQuery = "INSERT INTO `dosya`(`ad`, `link`, `upload`, `toplam`) VALUES ('" & txtbx_ad.Text & "', ftp://a/public_html/Dosya/'" & txtbx_ad.Text & "','" & txtbx_yükleyen.Text & "','" & Label6.Text & "')"
        upload(sqlQuery)
        My.Computer.Network.UploadFile("C:\Dosya/" & txtbx_ad.Text,"BURDADA BAGLANTI BİLGİLERİ VAR", True, 10, FileIO.UICancelOption.DoNothing)


    End Sub
    Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click
        download.Visible = True
    End Sub
End Class

yaptırmak istediğim işlem dosyayı ftp ye upload edecek upload edenin ismini textboxdan çekecek veritabanından id değerinine bakacak 10- id değeri yapacak çıkan sonucu öbür tablodaki toplam kısmını kaydedecek

üst üste 2 kere hatayı veriyor 2 farklı yerdede hatayı yakalıyor fakat yerini göstermiyor

TheAvenqer tarafından 23/Ara/17 17:10 tarihinde düzenlenmiştir

Bot ve lisans ihtiyaçlarınız için pm atınız.

Alıntı yap

23/Ara/17 15:50

Kısayol

Şikayet

Özel Mesaj

YeniHarman

Kayıt Tarihi: 17/Haziran/2012

try-catch bloklarını kaldır. Sen istisnayı işlediğin için gözükmüyor. Kendi haline bırak yani.

Olaylara karışmayın!

Alıntı yap

23/Ara/17 16:00

Kısayol

Şikayet

Özel Mesaj

2021 Talihlisi
TheAvenqer

Kayıt Tarihi: 09/Şubat/2014

YeniHarman bunu yazdı

try-catch bloklarını kaldır. Sen istisnayı işlediğin için gözükmüyor. Kendi haline bırak yani.

kaldırdım hocam button 1 de ki

READER = cmd.ExecuteReader

aynı hatayı vermeye başladı bu sefer en azından yeri gözüküyor

TheAvenqer tarafından 23/Ara/17 17:24 tarihinde düzenlenmiştir

Bot ve lisans ihtiyaçlarınız için pm atınız.

Alıntı yap

23/Ara/17 17:36

Kısayol

Şikayet

Özel Mesaj

lazz

Kayıt Tarihi: 15/Ekim/2007

bildigim kadarıyla command ıle connectıon bırbırıne baglamn gerekıyor hocam vb net yok denıyemedım ama ban sankı ordan geldı

Alıntı yap

23/Ara/17 17:52

Kısayol

Şikayet

Özel Mesaj

YeniHarman

Kayıt Tarihi: 17/Haziran/2012

con.Open()
            Dim query As String
            query = " SELECT `id` FROM `users` WHERE `user`='" & txtbx_yükleyen.Text & "'"
cmd = new MySqlCommand(query, con)
            READER = cmd.ExecuteReader
 
 
olarak dener misin?

                    Olaylara karışmayın!
                

Alıntı yap

23/Ara/17 18:30

Kısayol

Şikayet

Özel Mesaj

camarade
ontedi

Kayıt Tarihi: 04/Eylül/2005

query = " SELECT `id` FROM `users` WHERE `user`='" & txtbx_yükleyen.Text & "'"

bu sorgunun üstüne brakpoint koy, adım adım ilerle, sql sorgun yanlış olabilir.

Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

Alıntı yap

23/Ara/17 18:46

Kısayol

Şikayet

Özel Mesaj

YeniHarman

Kayıt Tarihi: 17/Haziran/2012

ontedi bunu yazdı

query = " SELECT `id` FROM `users` WHERE `user`='" & txtbx_yükleyen.Text & "'"

bu sorgunun üstüne brakpoint koy, adım adım ilerle, sql sorgun yanlış olabilir.

Olay o değil. MySqlCommand tipindeki nesneyi gösterecek cmd adlı referansın hiçbir nesneyi işaret etmemesi.

Olaylara karışmayın!

Alıntı yap

23/Ara/17 19:21

Kısayol

Şikayet

Özel Mesaj

2021 Talihlisi
TheAvenqer

Kayıt Tarihi: 09/Şubat/2014

YeniHarman bunu yazdı

con.Open()
            Dim query As String
            query = " SELECT `id` FROM `users` WHERE `user`='" & txtbx_yükleyen.Text & "'"
cmd = new MySqlCommand(query, con)
            READER = cmd.ExecuteReader
 
 
olarak dener misin?

oldu hocam ellerine sağlık

Bot ve lisans ihtiyaçlarınız için pm atınız.

Alıntı yap