以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不能写入全局代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21689)
--  作者：lihe60
--  发布时间：2012/7/21 15:09:00
--  不能写入全局代码

Public cmd As new sqlcommand
cmd. c o n n e c t i o n n a m e="1"

不能写入全局代码，请教。

[此贴子已经被作者于2012-7-21 15:18:35编辑过]
--  作者：lihe60
--  发布时间：2012/7/21 15:15:00
--  

cmd.  c o n n e c t i o n n a m e=1"

一楼的第行贴不完整。

[此贴子已经被作者于2012-7-21 15:17:59编辑过]
--  作者：liguichuan
--  发布时间：2012/7/21 16:08:00
--  

Public Function 数据源()
        \'-----定义语句
        Dim cmd2 As New SQLCommand
        \'-----设置数据源
        cmd2.C
        \'设置语句
        cmd2.CommandText = "Select GetDate()" \'获取服务器时间
         cmd2.ExecuteScalar \'返回服务器时间
End Function

 

 

您好，我试一下，如果你不定义任何的函数或是过程，你直接写是无法编译的，但是你写在函数或过程里就可以了，不信你添加上面代码中的红色部分。
--  作者：lihe60
--  发布时间：2012/7/21 16:20:00
--  

先谢谢了，我试试。
--  作者：lihe60
--  发布时间：2012/7/21 16:28:00
--  

Public cmd As new sqlcommand
Public ld As Date
Public Function 数据源()
\'-----定义语句
Dim cmd2 As New SQLCommand
\'-----设置数据源
cmd2.C
\'设置语句
cmd2.CommandText = "Select GetDate()" \'获取服务器时间
ld= cmd2.ExecuteScalar \'返回服务器时间
ld=#12/31/2012#
End Function

 

messagebox.show(ld)  在命令窗口执行结果不是 12/31/2012
--  作者：liguichuan
--  发布时间：2012/7/21 16:32:00
--  

 不懂你为什么这样写

[此贴子已经被作者于2012-7-21 16:34:47编辑过]
--  作者：lihe60
--  发布时间：2012/7/21 16:34:00
--  

Public cmd As new sqlcommand
Public ld As Date
Public s As String
Public Function 数据源()
\'-----定义语句
\'Dim cmd2 As New SQLCommand
\'-----设置数据源
cmd.C
\'设置语句
cmd.CommandText = "Select GetDate()" \'获取服务器时间
ld= cmd.ExecuteScalar \'返回服务器时间
ld=#12/31/2012#
s="12"
End Function

 

 

在命令窗口执行messagebox.show(s)，说s没有定义。   s 应该是变量吧？

[此贴子已经被作者于2012-7-21 16:37:03编辑过]
--  作者：liguichuan
--  发布时间：2012/7/21 16:37:00
--  
以下是引用lihe60在2012-7-21 16:34:00的发言：

Public cmd As new sqlcommand
Public ld As Date
Public s As String
Public Function 数据源()
\'-----定义语句
\'Dim cmd2 As New SQLCommand
\'-----设置数据源
cmd.C
\'设置语句
cmd.CommandText = "Select GetDate()" \'获取服务器时间
ld= cmd.ExecuteScalar \'返回服务器时间
ld=#12/31/2012#
s="12"
End Function

 

 

在命令窗口执行messagebox.show(s)，说s没有定义。  

那你不在命令窗口执行咯，你在某个按钮的事件下面执行一下看看，命令窗口有可能无法调用全局的变量也说不定。它好像只是一个测试窗口。
--  作者：lihe60
--  发布时间：2012/7/21 16:38:00
--  
以下是引用liguichuan在2012-7-21 16:32:00的发言：

 不懂你为什么这样写

[此贴子已经被作者于2012-7-21 16:34:47编辑过]

我是想把常用的代码写在全局代码里，不用每次都重复写这个代码。你有什么其他的方法吗？

[此贴子已经被作者于2012-7-21 16:38:27编辑过]
--  作者：lihe60
--  发布时间：2012/7/21 16:53:00
--  

Public Function SQL_GetTime(byval 数据源 As String) As Date

这个代码是什么意思？