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.

con. Open Dim query As String query = " SELECT `id` FROM `users` WHERE `user`='" & txtbx_yükleyen. Text & "'" cmd = new MySqlCommand READER = cmd. ExecuteReader olarak dener misin? Olaylara karışmayın!

Imports MySql. Data. MySqlClient Public Class upload Dim con As MySqlConnection = New MySqlConnection Dim cmd As MySqlCommand Dim READER As MySqlDataReader Dim sqlQuery As String Dim result As Integer Private Sub upload Try With cmd. Connection = con. CommandText = sqlQuery End With result = cmd. ExecuteNonQuery If result > 0 Then MsgBox Else MsgBox End If con. Close Catch ex As Exception MsgBox End Try End Sub Private Sub Button1_Click 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 End Try sqlQuery = "INSERT INTO `dosya` VALUES ('" & txtbx_ad. Text & "', ftp://a/public_html/Dosya/'" & txtbx_ad. Text & "','" & txtbx_yükleyen. Text & "','" & Label6. Text & "')" upload 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 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 gstermiyor 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.

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ı

try-catch bloklarını kaldır. Sen istisnayı işlediğin için gzü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 gzü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.

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 gsterecek cmd adlı referansın hiçbir nesneyi işaret etmemesi. Olaylara karışmayın!

con. Open Dim query As String query = " SELECT `id` FROM `users` WHERE `user`='" & txtbx_yükleyen. Text & "'" cmd = new MySqlCommand 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.

try-catch bloklarını kaldır. Sen istisnayı işlediğin için gzükmüyor. Kendi haline bırak yani. Olaylara karışmayın!