CahitEy
asked on
soap exception
i could not see any error :( please help code and error image as seen on below
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim kaydedicim As New Sirket_islemleri.sirket_islemleri
Dim uyeno As New uye_islemleri.uye_islemleri
Dim row As TableRow
Dim cell As TableCell
Dim hid1, hid2 As HiddenField
Dim tum_resimler = ""
Dim n = 0
For Each row In Table1.Rows
For Each cell In row.Cells
If n = 0 Then
hid1 = row.FindControl("hidden1_" & Left(cell.ID, Len(cell.ID) - 4))
hid2 = row.FindControl("hidden2_" & Left(cell.ID, Len(cell.ID) - 4))
If Not (hid2.Value = hid1.Value) And Not (hid1.Value = "") Then
If tasi(hid1.Value) Then
silici(hid1.Value, hid2.Value)
End If
ElseIf hid1.Value = "" And Not (hid2.Value = "") Then
hid1.Value = hid2.Value
End If
If Not (hid1.Value = "") Then
tum_resimler += hid1.Value & ","
End If
End If
Next
If n = 0 Then
n = 1
Else
n = 0
End If
Next
Dim genelislem As New Genel_islemler.Genel_Islemler
Dim kayit
If Button1.Text = "Kaydet" Then
Dim no = uyeno.UyeBilgisiAl(Context.User.Identity.Name, uye_islemleri.Kullanici_bilgisi.kimlik)
kayit = kaydedicim.kayit_al(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox6.Text, TextBox4.Text, TextBox5.Text, TextBox7.Text, DropDownList2.SelectedItem.Value, DropDownList3.SelectedItem.Value, DropDownList4.SelectedItem.Value, DropDownList5.SelectedItem.Value, TextBox8.Text, DropDownList6.SelectedItem.Value, "", Editor1.Content, TextBox9.Text, no, DropDownList1.SelectedItem.Value)
Else
kaydedicim.Guncelle(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox6.Text, TextBox4.Text, TextBox5.Text, TextBox7.Text, DropDownList2.SelectedItem.Value, DropDownList3.SelectedItem.Value, DropDownList4.SelectedItem.Value, DropDownList5.SelectedItem.Value, TextBox8.Text, DropDownList6.SelectedItem.Value, "", Request.QueryString("no"), Editor1.Content, TextBox9.Text, DropDownList1.SelectedItem.Value)
End If
If Not (Request.QueryString("no") = "") Then
genelislem.resim_sil("sirket", Request.QueryString("no"))
genelislem.resim_kayit(Request.QueryString("no"), "sirket", Left(tum_resimler, Len(tum_resimler) - 1))
Else
genelislem.resim_sil("sirket", kayit)
genelislem.resim_kayit(kayit, "sirket", Left(tum_resimler, Len(tum_resimler) - 1))
End If
Response.Redirect("default.aspx")
End Sub
the code which gives error from web service :
<WebMethod()> _
Function resim_kayit(ByVal bolumno As String, ByVal bolum As String, ByVal bilgi As String)
Dim connection
Dim Ar_Bilgi As Array = bilgi.split(",")
Dim adres = ""
For i = 0 To Ar_Bilgi.Length
adres = adres & sql.resimler_ekle.ToString.Replace("bolumno1", "bolumno" & i)
Next
connection = ConfigurationSettings.AppSettings("ConnectionString")
Dim cmd As New MySqlCommand(sql.resimler_ekle, New MySqlConnection(connection))
cmd.Parameters.Add("?bolumno", bolumno).MySqlDbType = MySqlDbType.VarChar
cmd.Parameters.Add("?bolum", bolum).MySqlDbType = MySqlDbType.VarChar
For i = 0 To Ar_Bilgi.Length
cmd.Parameters.Add("?bolumno" & i, Ar_Bilgi(i)).MySqlDbType = MySqlDbType.Datetime
Next
cmd.Connection.Open()
cmd.ExecuteNonQuery()
cmd.Connection.Close()
End Function
hata.jpg
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
there were one more array at the bottom i forget it thanks for your answer you were right
ASKER
Thanks
ASKER
System.Web.Services.Protoc
at System.Array.InternalGetRe
at System.Array.GetValue(Int3
at Microsoft.VisualBasic.Comp
at Microsoft.VisualBasic.Comp
at Microsoft.VisualBasic.Comp
at Genel_Islemler.resim_kayit
--- End of inner exception stack trace ---