标题：迫切需要增加一个判断sql语句是否有效的函数（已搞定）

1楼

reachtone 发表于：2010/3/5 9:53:00

如题，很多地方都用的到的。
这个问题以前提过，再建议一次。

[此贴子已经被作者于2010-3-5 12:04:48编辑过]

2楼

狐狸爸爸 发表于：2010/3/5 10:57:00

SQL语句不经过执行，是无法判断其是有有效的。

3楼

reachtone 发表于：2010/3/5 11:32:00

即使通过sqlcommand执行，用try也无法判断。
能不能想个办法？

4楼

reachtone 发表于：2010/3/5 11:56:00

在网上搜些资料,自己琢磨出来了：
Dim Conn As New Data.OleDb.OleDbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Code.mdb;Persist Security Info=False")
Conn.Open
Dim sql As New Data.OleDb.OleDbCommand("Select * From [Code]", Conn)
Try
    sql.ExecuteReader
    Messagebox.show("成功")
Catch ex as Exception
    Messagebox.show("失败")
End Try

[此贴子已经被作者于2010-3-5 11:57:32编辑过]

5楼

baoxyang 发表于：2010/3/5 11:59:00

学习

6楼

czy 发表于：2010/3/5 12:02:00

学习！

7楼

yangming 发表于：2010/3/5 12:06:00

以下是引用reachtone在2010-3-5 11:56:00的发言：
在网上搜些资料,自己琢磨出来了：
Dim Conn As New Data.OleDb.OleDbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Code.mdb;Persist Security Info=False")
Conn.Open
Dim sql As New Data.OleDb.OleDbCommand("Select * From [Code]", Conn)
Try
    sql.ExecuteReader
    Messagebox.show("成功")
Catch ex as Exception
    Messagebox.show("失败")
End Try

[此贴子已经被作者于2010-3-5 11:57:32编辑过]

收藏研究！

8楼

mr725 发表于：2010/3/5 13:24:00

看不懂，先收下了～厉害呀！

共8 条记录, 每页显示 10 条, 页签: [1]