存储过程把一个或多个T-SQL语句组合到一个逻辑单元中,在SQL Server数据库中保存为一个对象。在存储过程创建后,它的T-SQL定义保存在sys.sql_module系统目录视图中。当存储过程首次执行的时候,SQL Server创建执行计划并把它存储在计划内存缓存中。然后SQL Server就能对这个存储过程的后续执行重用计划。和没有编译且没有准备好的等价即时查询相比,存储过程更加快速可靠。还可以创建使用.net公共语言运行时(CLR)程序集的存储过程。使用存储过程有很多好处,而没什么坏处:帮助在数据层聚集T-SQL代码。帮助大的即时查询减少网络流量。促进代码的可复用性。淡化数据获取的方法。与视图不同,存储过程可以利用刘控制技术、临时表、表变量等。存储过程对查询响应时间的影响比较稳定。存储过程能作为控制层,排除了直接访问SQL Server实例和它的数据库表可能引起的安全隐患。存储过程能用于多种不同的活动,包括简单的SELECT、INSERT、UPDATE、DELETE等。T-SQL活动能混合在单个存储过程中,或者以模块形式创建存储过程,为每一个或一组任务创建多个存储过程。没有参数的存储过程的基本语法如下:CREATE PROCEDURE [Schema_name.] procedure_nameAS { sql_statement [...n ] }带参数的存储过程可以接收外部传入参数多达2100个。语法如下:CREATE {PROC|PROCEDURE} [Schema_name.] procedure_name [; number][ { @parameter [ type_schema_name.] data_type } [VARYING ] [=default] [OUT | OUTPUT ] [READONLY] ] [ , ... n][ WITH procedure_option [ , ... n] ][FOR REPLICATION ]AS {sql_statement [;] [ ...n] | method_specifier }
公司专注于为企业提供成都做网站、成都网站制作、成都外贸网站建设、微信公众号开发、电子商务商城网站建设,微信小程序定制开发,软件按需设计等一站式互联网企业服务。凭借多年丰富的经验,我们会仔细了解各客户的需求而做出多方面的分析、设计、整合,为客户设计出具风格及创意性的商业解决方案,创新互联建站更提供一系列网站制作和网站推广的服务。
用Directory.CreateDirectory即可创建文件夹:
' 建立目录
If Not Directory.Exists("C:\负屃\" TextBox1.Text) Then '检查文件夹是否存在
Directory.CreateDirectory("C:\负屃\" TextBox1.Text) '不存在,创建文件建夹
End If
你的例子是因为少了一个"\"引起的,正确的如下:
Dim fsotest As New FileSystemObject
If fsotest.FileExists("C:\负屃\" TextBox1.Text) = False Then
fsotest.CreateFolder("C:\负屃\" TextBox1.Text) '这里你少了一个\
End If
MsgBox("创建成功")
追问: 只有那个办法? 回答: 是,这跟SQL Server不同,ACCESS是独立文件的,而且它能支持的SQL语句有限,一般是使用ACCESS来创建,若要动态创建,只能用ADO了,但Sql Server就不同了,它可以执行复杂的SQL语句,相对来说,动态创建数据库和表,要比ACCESS方便。 追问: 创建表的话能用SQL语句了吗? 回答: 没试过,应该不行 追问: 那你能告诉我下怎么创建表吗?创建数据库我会了 回答: 可以使用DAO对象来操作,注意是DAO对象,不是ADO对象! 追问: 能不能详细说下过程呢?创建表的过程 回答: 创建表的过程用DAO.net和ADO.net都可以,创建数据库可以用DAO对象,既然你已经可以创建数据库,那么创建表只要先连接到这个数据库,然后用create table语句来执行就行了,可以使用OledbConnection先连接这个库,接着用OledbCommand对象的ExecuteNonQuery来执行create table语句即可。
是否可以解决您的问题?
Dim Str(20) As String '20数据元素
Dim Text(20) As TextBox
Dim n As Integer = 0
For Each i In Text
i = New TextBox '实例化
i.Location = New Point(50, n * 20)
Me.Controls.Add(i) '添加窗体
Dim Index As Integer = i.TabIndex '没index属性
Str(n) = Index
i.Text = Str(n) 'str数组值赋值给文本框
n += 1
Next
在任意form类或模块中都可以创建类,跟建立函数和过程一样。
示例:
public class form1
‘创建一个属于form的子类,名称为【类名】。
public class 类名
’定义类成员text
public text as string
end class
‘定义一个【类名】类的公共变量。
dim 类名1 as 类名
’定义一个过程,使用【类名】类的text成员
public sub 过程
‘实例化【类名1】
类名1=new 类名
类名1.text=“赋值”
’定义一个【新类】类的私用变量,并实例化。
dim 新类1 as new 新类
新类1.name=“一个字符串”
新类1.age=12
end sub
end class
‘’‘创建一个与form同级的类,名称为【新类】
public class 新类
public sub new()
end sub
public name as string
public age as integer
end class
在模块中使用:
public class module1
dim a as new form1.类名
end module
不好说,我就说下我的想法!有数据库的!
1:先想清楚,(包括先设想下页面,涉及的功能等)
2:编写文档
3:设计数据库,编写代码
4:
调试程序
,生成,查错
5:部署安装。