甜橘子，专注成都网站制作网站设计与营销型网站建设与优化
QQ :532337155
电话：028-86922220
存储过程把一个或多个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：部署安装。