PDA

View Full Version : راهنمایی برای وارد کردن یک رشته در دیتابیس mysql ?!



Heidari66
چهارشنبه 14 مرداد 1394, 22:31 عصر
سلام

اشتباه این کد چیه؟
داده هارو اشتباه وارد میکنه:



Dim sss As String
Dim dd As String = "#013950005177689,1149,150805,11000001,11,12,13,14, 15,16,17,18,0F*"
Dim arr As String() = Split(dd, ",")


For Each sss In arr





Try
Dim conn As MySqlConnection
Dim cmd As MySqlCommand
conn = New MySqlConnection(EtesalMysql)
conn.Open()
cmd = conn.CreateCommand
cmd.CommandText = "INSERT INTO mh1 (macc,timee,datee,sens,s1,s2,s3,s4,s5,s6,s7,s8,che ckss ) VALUES ('" +
sss + "','" + sss + "','" + sss + "','" + sss + "','" + sss + "','" + sss + "','" + sss + "','" + sss + "','" + sss + "','" + sss + "','" + sss + "','" + sss + "','" + sss + "')"


cmd.ExecuteNonQuery()
cmd.Dispose()
conn.Close()


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


Next

jamal_ch
پنج شنبه 15 مرداد 1394, 07:57 صبح
سلام

Dim sss As String
Dim dd As String = "#013950005177689,1149,150805,11000001,11,12,13,14 ,15,16,17,18,0F*"
Dim arr As String() = Split(dd, ",")








Try
Dim conn As MySqlConnection
Dim cmd As MySqlCommand
conn = New MySqlConnection(EtesalMysql)
conn.Open()
cmd = conn.CreateCommand
cmd.CommandText = "INSERT INTO mh1 (macc,timee,datee,sens,s1,s2,s3,s4,s5,s6,s7,s8,che ckss ) VALUES ('" +
arr(1) + "','" + arr(2) + "','" + arr(3) + "','" + arr(4) + "','" + arr(5) + "','" + arr(6) + "','" + arr(7) + "','" + arr(8) + "','" + arr(9) + "','" + arr(10) + "','" + arr(11) + "','" + arr(12) + "','" + arr(13) + "')"


cmd.ExecuteNonQuery()
cmd.Dispose()
conn.Close()


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

Heidari66
پنج شنبه 15 مرداد 1394, 19:23 عصر
دوست عزیز این خطارو میده:

An unhandled exception of type 'System.IndexOutOfRangeException' occurred in Product-Counter.exe


Additional information: Index was outside the bounds of the array.

Heidari66
پنج شنبه 15 مرداد 1394, 20:12 عصر
ممنون درست شد...