更新的字符串有问题，你要更新的是X的值，而不知"X"，所以应该如下：
创新互联公司是一家集网站建设,八宿企业网站建设,八宿品牌网站建设,网站定制,八宿网站建设报价,网络营销,网络优化,八宿网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
Dim sql As String = "UPDATE COURSEINFO SET REALLENGTH=“ cstr(x) " WHERE TEACHERID='" + TxtNum.Text + "'"
其他的语句没看出有错。
最简单的就是直接转换，就是把字符串变量赋值给数值变量。\x0d\x0a数值变量=字符串\x0d\x0a\x0d\x0a如果必须转换，就使用 Val 函数赋值，会把字符串转换成双精度数。\x0d\x0a比如：数值变量=Val(字符串)\x0d\x0a例：\x0d\x0an = Val("3.5") ' 变量n赋值为3.5\x0d\x0a\x0d\x0a或者使用取整函数，也可以转换。\x0d\x0a比如：数值变量=Int(字符串) 或者 数值变量=CInt(字符串)\x0d\x0a例：\x0d\x0an = Int("3.5") ' 取整数，变量n赋值为3\x0d\x0a\x0d\x0an = CInt("3.5") ' 四舍五入取整数，变量n赋值为4
date是一个类型。。。似乎不能赋值吧
由Sting转换成 Integer 可以这样写
dim a as string="adasdfsdfsferqwer"
dim b as integer
b= CUInt(a)
语法是正确的。。。但你要是把 几个字符转硬转换为 数字整型 但这几个字符串又不是数子 一定要出错的
如果是下面就没错了
dim a as string="45446464646"
dim b as integer
b= CUInt(a)
明白你的意思了,只要是字母都会转换成数字,帮你写好了("usernane"和 "pasward" 我这里写成 "username" 和" password"）
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim username, password As String
Dim temp As Long
Dim r As String = ""
Dim v As String = TextBox1.Text
For Each c In v.ToString
If IsNumeric(c) Then
r = c
Else
r = ((Asc(c) - 65).ToString("00"))
End If
Next
username = r
temp = username * 3 - 500
password = CStr(temp)
TextBox2.Text = password
End Sub
我用的C#，我和你说下，你要做这个的思路吧，要用到的知识点：比如说你在文本框里输入汉字，点一button按扭来转换，也就是说获取文本框字符串，然后切割字符串转化为数组，string [] str=textbox.text.ToCharArray()接下来用循环来一个方法for(int i=0,istr.length;i++){if(str[i]=="壹"){str[i]=str[i].replace(壹,1);/pp}else{str[i]=str[i].replace(贰,2);} //这里根据自己的需求}大概的知识点要用到这些，不过，还有待他人和你自己的补充，我用的C#，以前我做过一个类似的(数字转为汉字哈)，不过，那全是用if....else 来判断的，希望你能看懂，对你有帮助
