TechnoFantasy的专栏

tgstgstgs发表于：2008-07-03

你好，我能加你为好友吗

love_rule发表于：2008-06-30

你好我想问一些 能不能辅导我做一个酒店管理系统啊 
用VB

wwwydt发表于：2008-06-27

你好，我是刚开始接触软件开发的，是用的C#，现在还有点迷茫，能不能给提供个学习方法，

cnxz48662发表于：2008-06-27

        strSql = ""
        strSql = strSql & "update 学生信息表 set"
        strSql = strSql & " 姓名='" & Trim(txtName) & "'"
        strSql = strSql & ",出生日期 ='" & Trim(txtBirth) & "'"
        strSql = strSql & ",专业 ='" & Trim(txtSub) & "'"
        strSql = strSql & ",性别 ='" & ComboSex & "'"
        strSql = strSql & " where 学号='" & Trim(txtNo) & "'"
        conn.Execute strSql
你好，我初学vb，这句sql是想修改数据库中某条记录的内容，可是运行总是出现“标准表达式中类型数据不匹配”，错误断点停在“conn.execute strsql”，请问这是怎么回事？

tianhelitong发表于：2008-06-21

请大师帮帮忙，我提的那问题“VB的text中如何提取特征相同内容？”一定要写出完整的代码，我是初学的。小妹我感激不尽

tianhelitong发表于：2008-06-21

大师请帮帮忙：VB的text中如何提取特征相同内容？急
如在text1中的内容是
【第0002行】  03
【第0003行】  01
【第0004行】  04
【第0005行】  01
【第0006行】  02
【第0007行】  05
text2的内容是
【第0003行】 
【第0004行】 
【第0006行】 
按下command1,text3中就会显示
【第0003行】 01
【第0004行】 04
【第0006行】 02
就是把text1中有text2特征的行给提取到text3中去
感激不尽急用

zhaoqinfen发表于：2008-06-20

你好，我想学习ASP.NET，能推荐几本好书吗?有一点C#基础；谢谢

zhaoyun776发表于：2008-06-18

哥们，您好！我想问一下，您做VB程序时，用什么打包软件？如果也是Innosetup的话，请告诉我，怎么实现发现某个进程正在运行时，关闭该进程！如果能帮得上忙不胜感谢！

quiettimes发表于：2008-06-12

你好，我是搞遥感图像处理的，听说你是个高手，结识一下，呵呵。

xiaoxiaowei123发表于：2008-06-10

老师帮帮我吧  谢谢了
我想设计一个数据库.前面的条件连接到别的数据库,可以显示的,  再点击确定按钮后, 切削深度\ 每齿进给量 \切削速度  会显示结果.但我不知道错在那里 ，结果怎么为零呢
Private Sub Command1_Click()
Dim a As Single 
Dim b As Single 
Dim c As Single 
Dim d As Single 
Dim m As Single 
Dim n As Single 
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\任雪艳\任雪艳毕设\切削用量表.mdb;Persist Security Info=False" 
Adodc1.RecordSource = "select * From 切削用量表 where 刀具名称='" + Text1.Text + "' And 刀具材料 ='" + Text2.Text + "' And 刀具直径=" + Text3.Text + " And 刀具齿数 =" + Text4.Text + " and 工件牌号='" + Form6.Text3.Text + "'" 
  Adodc1.Refresh 
  DataGrid1.Refresh 
  On Error Resume Next 
a = Adodc1.Recordset!切削深度 
c = Adodc1.Recordset!每齿进给量 
m = Adodc1.Recordset!切削速度 
  Do 
  Adodc1.Recordset.MoveNext 
  b = Adodc1.Recordset!切削深度 
  d = Adodc1.Recordset!每齿进给量 
  n = Adodc1.Recordset!切削速度 
  If a < b Then 
  a = b 
  c = d 
  m = n 
  End If 
Loop While Not Adodc1.Recordset.EOF 
  Adodc1.Refresh 
  DataGrid1.Refresh 
  Text10.Text = a 
  Text8.Text = m 
  Text9.Text = c