Question

VB.net程序出错，请教高手，错误：将参数值从 String 转换到 Int32 失败。

Dim 大圆直径 As New OleDbParameter("@大圆直径", OleDbType.LongVarWChar, 50000)            Dim 中圆直径 As New OleDbParameter("@中圆直径", OleDbType.LongVarWChar, 50000)            Dim 小圆直径 As New OleDbParameter("@小圆直径", OleDbType.LongVarWChar, 50000)            Dim 大圆高度 As New OleDbParameter("@大圆高度", OleDbType.LongVarWChar, 50000)            Dim 中圆深度 As New OleDbParameter("@中圆深度", OleDbType.LongVarWChar, 50000)            Dim ID As New OleDbParameter("@ID", OleDbType.Integer, 100)            Dim strin As String = " insert into 表1(ID,大圆直径,中圆直径,小圆直径,大圆高度,中圆深度) " & " values ( @ID,@大圆直径,@中圆直径,@小圆直径,@大圆高度,@中圆深度)"            Dim objcmd As New OleDbCommand(strin, objconn)            objcmd.Parameters.Add(ID)            objcmd.Parameters.Add(大圆直径)            objcmd.Parameters.Add(中圆直径)            objcmd.Parameters.Add(小圆直径)            objcmd.Parameters.Add(大圆高度)            objcmd.Parameters.Add(中圆深度)            ID.Value = TextBox6.Text            大圆直径.Value = TextBox1.Text            中圆直径.Value = TextBox2.Text            小圆直径.Value = TextBox3.Text            大圆高度.Value = TextBox4.Text            中圆深度.Value = TextBox5.Text            objcmd.ExecuteNonQuery()            Dim strsql = " select * from 表1 "            objadap.SelectCommand = New OleDbCommand(strsql, objconn)            objdset.Clear()            objadap.Fill(objdset, "表1")            objconn.Close()            MsgBox("插入成功")

Answer 1

用Int32.Parse(a,System.Globalization.NumberStyles.HexNumber)将a转化成int32

Answer 2

jbpbc5702ff25，你真是一个刷分大王！
经验值 财富值 采纳率 提问数 回答数 精彩回答 赞同数 经验数
935796 966380 0% 107038 0 0 0 0