你上面的报错是不是类似“连接已经打开”或者“连接已经关闭”之类?有可能是你说的原因,SqlConnection最好不要写成全局的变量,应该在每个调用的地方重新new,最好用using结构来声明。
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:域名注册、网页空间、营销软件、网站建设、谢家集网站维护、网站推广。
用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("创建成功")
我提供下c#里实现的方法:
SqlConnection conn="连接数据库语句";
SqlCommand cmd=new SqlCommand("存储过程名 A或B",conn);
cmd.CommandType=CommandType.StoredProcedure; //这句表示cmd的字符串是存储过程
cmd.Parameters.Add("@存储过程里的参数,用@开头",SqlDbType.Nvarchar).Value="参数值";
...如果还有参数,继续上句
conn.Open();
cmd.ExecuteNonQuery();
如果不要参数,直接把cmd.Parameters这句去掉。SqlDbType表示参数的类型,自己选择
保存文件的步骤为:
关闭流,特别是写入流
关闭并保存文件
示例代码如下:
Imports System.Windows.Forms
Imports System.IO
Imports System.Text
Sub SaveFileDemo()
'打开文件。如果文件不存在则创建新的文件
Dim myFile As New IO.FileStream("d:\data.txt", _
FileMode.OpenOrCreate, _
FileAccess.Write)
'在文件末尾添加一行
Dim tw As New StreamWriter(myFile)
myFile.Seek(0, SeekOrigin.End)
tw.WriteLine("白刃格斗英雄连英模部队方队亮相阅兵")
'关闭流
tw.Close()
'关闭文件并保存文件
myFile.Close()
End Sub
1:Access,建立数据库,数据库命名为Database1.mdb。
(注意:这里的后缀是MDB,如果Access是2007版本的,保存的时候要另存为2003版本的才行,因为,VB不直接支持07版的accdb后缀格式!)
2:数据库建立后就进入了数据表界面,可以输入数据了,输完以后CRRL+S保存,输入表名,这里表名为test,ok,准备工作搞定。
菜单中找到工程→部件→勾选 ,
Microsoft ADO Data Control 6.0
Microsoft Hierarchical Flexgrid Control 6.0
勾选后左侧工具栏里就多了两个控件即 ADODC控件和MSHFlexGrid控件。
选择 ADODC控件和MSHFlexGrid控件,放在窗体的合适位置
设置ADODC控件的属性:
右键窗体内ADODC1控件
1:ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接,显示测试成功则ok,确定。
2:ADODC属性页→记录源→命令类型选择2-adcmdtable,表或存储过程名称选择之前建立的数据表test,点击确定,ADODC属性设置完成。
设置MSHFlexGrid控件的属性:
VB右侧属性表里,找到datasource,选择adodc1
就完事了
般电话机对外联络,以免为了穿透墙壁天花板等障碍而浪费电。同样在室外