用sql语句改写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用sql语句改写

共有2720人关注过本帖树形打印复制链接主题：用sql语句改写

riyuan

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：305 积分：2401 威望：0 精华：0 注册：2013/4/9 11:49:00

用sql语句改写 发帖心情

Post By：2014/8/26 10:53:00 [只看该作者]

Dim dr As DataRow

Dim zhanghao As String = e.Form.Controls("textbox1").Value

If zhanghao = Nothing Then

MessageBox.Show("请输入您的登录账号!", "错误提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

Else

DataTables("login").LoadFilter= "[登陆账号] = '" & zhanghao & "'"

DataTables("login").Load

dr = DataTables("login").Find("[登陆账号] = '" & zhanghao & "'")

If dr Is Nothing Then

Messagebox.show("登陆账号不对!","错误提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Sender.Text=""

e.Cancel = True

Else

e.Form.Controls("textbox2").value=dr("登陆名")

End If

这段代码用sql语句怎么写

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/8/26 10:55:00 [只看该作者]

"select top 1 * from {login} where [登陆账号] = '" & zhanghao & "'"

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/26 10:55:00 [只看该作者]

你直接这样写即可 DataTables("login").SqlFind("[登陆账号] = '" & zhanghao & "'")

http://www.foxtable.com/help/topics/2911.htm

riyuan

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：305 积分：2401 威望：0 精华：0 注册：2013/4/9 11:49:00

Post By：2014/8/26 11:16:00 [只看该作者]

我没有在程序中加载外部表的，我要用sql语句来写。上面的例子都是加载了表的

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/26 11:17:00 [只看该作者]

看2楼，用sqlcommand

http://www.foxtable.com/help/topics/0696.htm

riyuan

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：305 积分：2401 威望：0 精华：0 注册：2013/4/9 11:49:00

Post By：2014/8/26 11:32:00 [只看该作者]

Dim hh As String

With e.Form

.Controls("textbox1").text=Tables("mm_Table2").current("户号")

.controls("textbox2").text= Tables("mm_Table2").current("姓名")

.Controls("textbox3").text=Tables("mm_Table2").Current("身份证号")

End With

hh=e.Form.Controls("textbox1").text

Dim cmd As New SQLCommand

cmd.C

Dim ld As String

cmd.CommandText = "Select * From {xlh} where 户号 ='" & hh & "'"

If cmd.ExecuteScalar> 0 Then

e.Form.Controls("textbox4").text =" xlh.合作医疗证号"

MessageBox.Show(ld)

Else

Return

End If

这段代码错在哪里， textbox4不级获取到xlh的医疗证号

mm_table2是另一个表的

医疗证号是xlh表中的

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/26 11:42:00 [只看该作者]

cmd.CommandText = "Select top 1 * From {xlh} where 户号 ='" & hh & "'"
Dim dt As DataTable = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
e.Form.Controls("textbox4").text = dt.DataRows(0)("合作医疗证号")
Else
Return
End If

[此贴子已经被作者于2014-8-26 11:42:38编辑过]

下一主题 >> << 上一主题

主题：用sql语句改写