7,762
社区成员
发帖
与我相关
我的任务
分享基础太差了。帮忙。在线等。
怎么定义字符型变量
我有一段程序需要实现 如果x>=40 则插入数据库为A
20=<x<=40 插入B x<=2=插入C
怎么写，请说明怎么声明这个字符型变量。谢谢。
我有一段程序需要实现 如果x>=40 则插入数据库为A
20=<x<=40 插入B x<=2=插入C
怎么写，请说明怎么声明这个字符型变量。谢谢。
...全文
请发表友善的回复…
发表回复
of123 2004-07-08
- 打赏
- 举报
哎呦，有错。更正：
Private Sub Insert_Database(Byval x As Integer) '根据你的需要设置数据类型
Private Sub Insert_Database(Byval x As Integer) '根据你的需要设置数据类型
of123 2004-07-08
- 打赏
- 举报
你的需求用 Select Case 可能更好：
Private Sub Insert_Database(Byval x As String)
Dim tmp as String
Select Case x
Case Is >= 40 Then
tmp = "A"
Case Is >= 20
tmp = "B"
Case Is >= 2
tmp = "C"
Case Else
Exit Sub
End Select
cn.Execute "INSERT INTO yourtable(yourfield) VALUES('" & tmp & "')"
End Sub
Private Sub Insert_Database(Byval x As String)
Dim tmp as String
Select Case x
Case Is >= 40 Then
tmp = "A"
Case Is >= 20
tmp = "B"
Case Is >= 2
tmp = "C"
Case Else
Exit Sub
End Select
cn.Execute "INSERT INTO yourtable(yourfield) VALUES('" & tmp & "')"
End Sub
cslf 2004-07-08
- 打赏
- 举报
数据库为A是“表”还是“库”?如果是“库”就定义不同的connectionstring.
x<=2 插入C->x<20插入C?
这样的话， online(龙卷风V2.0--再战江湖)已经说很清楚了。
x<=2 插入C->x<20插入C?
这样的话， online(龙卷风V2.0--再战江湖)已经说很清楚了。
ryuginka 2004-07-08
- 打赏
- 举报
hehe
BlueBeer 2004-07-07
- 打赏
- 举报
//如果x>=40 则插入数据库为A
//20=<x<=40 插入B
条件设的不对，x=40时满足条件1，同时满足条件2，到底是插入A还是插入B呢？
//20=<x<=40 插入B
条件设的不对，x=40时满足条件1，同时满足条件2，到底是插入A还是插入B呢？
northwolves 2004-07-07
- 打赏
- 举报
x=20 or x=40 往哪个库插？
msgbox switch(x>40,"a",x<20,"c",x<=40 and x>=20,"b")
msgbox iif(x>40,"a",iif(x<20,"c","b"))
msgbox switch(x>40,"a",x<20,"c",x<=40 and x>=20,"b")
msgbox iif(x>40,"a",iif(x<20,"c","b"))
online 2004-07-07
- 打赏
- 举报
怎么定义字符型变量
我有一段程序需要实现 如果x>=40 则插入数据库为A
20=<x<=40 插入B x<=2=插入C
怎么写，请说明怎么声明这个字符型变量。谢谢。
Private Sub Command2_Click()
Dim x As String
x = 30
If x > 40 Then
MsgBox "insert into a"
ElseIf 20 <= x <= 40 Then
MsgBox "insert into b"
Else
MsgBox "insert into c"
End If
End Sub
我有一段程序需要实现 如果x>=40 则插入数据库为A
20=<x<=40 插入B x<=2=插入C
怎么写，请说明怎么声明这个字符型变量。谢谢。
Private Sub Command2_Click()
Dim x As String
x = 30
If x > 40 Then
MsgBox "insert into a"
ElseIf 20 <= x <= 40 Then
MsgBox "insert into b"
Else
MsgBox "insert into c"
End If
End Sub
llmachine 2004-07-07
- 打赏
- 举报
顶
