aminvb
چهارشنبه 10 شهریور 1389, 14:03 عصر
سلام
دوستان كلافه شدم واقعا نمي دونم مشكلم چيه
من دوتا فيلد يكي آي دي يكي ام ام دارم مي خوام چك كنم اگه فيلد آدي 1 رو دارم بيام ام ام همون فيلد آي دي 1 رو مقدارشو ويرايش كنم
اگه آي دي 1 ندارم بيام يك فيلد آي دي 1 و فيلد ام ام با مقدار جديد ثبت كنم
اينم كد هاي برنامم
بعد از زدن دگمه اين ارور رو ميده
Conversion from string “””to type “Double’is not Valid
در ضمن اينم فيلدام با نوعشون
Primary keyفيلد آي دي
Id =int
Mm = nvarchar(50)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
con = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\data.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
If txtPath.Text.Length > 12 Then
strsql = "select * From masirB WHERE Id =" & "1" & ""
da = New SqlDataAdapter(strsql, con)
ds = New DataSet
con.Open()
da.Fill(ds, "masirB")
If ds.Tables("masirB").Rows.Count <> 0 Then
TextBox1.Text = ds.Tables("masirB").Rows(0).Item("id")
TextBox2.Text = ds.Tables("masirB").Rows(0).Item("mm")
End If
If TextBox1.Text.Length > 0 And TextBox2.Text > 0 Then
con.Open()
strsql = "UPDATE masirB SET [mm] ='" & txtPath.Text & " ' WHERE id Like'" & TextBox1.Text & "'"
com = New SqlCommand(strsql, con)
com.ExecuteNonQuery()
con.Close()
Else
con.Open()
strsql = "INSERT INTO masirB (id,mm) VALUES (' " & "1" & "','" & txtPath.Text & " ')"
com = New SqlCommand(strsql, con)
com.ExecuteNonQuery()
con.Close()
End If
MsgBox(" مسير فايل پشتيبان ذخيره شد", MsgBoxStyle.Information, "مسير پشتيبان")
Else
MsgBox("لطفا مسير فايل پشتيبان را مشخص نماييد", MsgBoxStyle.Information, "مسير پشتيبان")
End If
End Sub
دوستان كلافه شدم واقعا نمي دونم مشكلم چيه
من دوتا فيلد يكي آي دي يكي ام ام دارم مي خوام چك كنم اگه فيلد آدي 1 رو دارم بيام ام ام همون فيلد آي دي 1 رو مقدارشو ويرايش كنم
اگه آي دي 1 ندارم بيام يك فيلد آي دي 1 و فيلد ام ام با مقدار جديد ثبت كنم
اينم كد هاي برنامم
بعد از زدن دگمه اين ارور رو ميده
Conversion from string “””to type “Double’is not Valid
در ضمن اينم فيلدام با نوعشون
Primary keyفيلد آي دي
Id =int
Mm = nvarchar(50)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
con = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\data.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
If txtPath.Text.Length > 12 Then
strsql = "select * From masirB WHERE Id =" & "1" & ""
da = New SqlDataAdapter(strsql, con)
ds = New DataSet
con.Open()
da.Fill(ds, "masirB")
If ds.Tables("masirB").Rows.Count <> 0 Then
TextBox1.Text = ds.Tables("masirB").Rows(0).Item("id")
TextBox2.Text = ds.Tables("masirB").Rows(0).Item("mm")
End If
If TextBox1.Text.Length > 0 And TextBox2.Text > 0 Then
con.Open()
strsql = "UPDATE masirB SET [mm] ='" & txtPath.Text & " ' WHERE id Like'" & TextBox1.Text & "'"
com = New SqlCommand(strsql, con)
com.ExecuteNonQuery()
con.Close()
Else
con.Open()
strsql = "INSERT INTO masirB (id,mm) VALUES (' " & "1" & "','" & txtPath.Text & " ')"
com = New SqlCommand(strsql, con)
com.ExecuteNonQuery()
con.Close()
End If
MsgBox(" مسير فايل پشتيبان ذخيره شد", MsgBoxStyle.Information, "مسير پشتيبان")
Else
MsgBox("لطفا مسير فايل پشتيبان را مشخص نماييد", MsgBoxStyle.Information, "مسير پشتيبان")
End If
End Sub