C#, Asp.Net, .Net Core
Vbnet Nesnenin Başvurusu Bir Nesnenin Örneğine Ayarlanmadı
Vbnet Nesnenin Başvurusu Bir Nesnenin Örneğine Ayarlanmadı
-
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 -
try-catch bloklarını kaldır. Sen istisnayı işlediğin için gözükmüyor. Kendi haline bırak yani.
-
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 -
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ı
-
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? -
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.
-
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.
-
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