十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
1、首先打开Visual Studio 2008代码窗口,添加引用。
成都创新互联-成都网站建设公司,专注网站制作、成都网站设计、网站营销推广,域名与空间,虚拟空间,网站改版维护有关企业网站制作方案、改版、费用等问题,请联系成都创新互联。
2、输入以下代码:Public conn1 As SqlConnection = New SqlConnection 。
3、声明关键字 Public;(因为是全局变量,所以用Public 来声明)。
4、如果SQL 数据库就在本机,则用以下代码连接。
5、如果代码太长,影响可读性,可以用空格加"_"后,回车换行即可。
Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click 备份数据库 BACKUP DATABASE Test TO DISK= C:\Backup WITH Format Dim cn As SqlConnection Dim cm As SqlCommand cn = getDB() cm = New SqlCommand( BACKUP DATABASE JXbase TO DISK= C:\Backup WITH Format cn) cn Open() cm ExecuteNonQuery() MsgBox( 备份成功 ) cn Close()
End Sub
恢复 Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click Dim cn As New SqlConnection Dim cn As New SqlConnection Dim mydr As SqlDataReader Dim str As String
Dim tmpConnectionString As String = Data Source=JJK;Initial Catalog=master;Integrated Security=True cn ConnectionString = tmpConnectionString cn ConnectionString = tmpConnectionString cn Open() cn Open() Dim cm As SqlCommand = New SqlCommand( select spid from master sysprocesses where dbid=db_id( JXbase ) cn) mydr = cm ExecuteReader()
Dim cm As SqlCommand = New SqlCommand() cm Connection = cn
While (mydr Read()) 杀死进程
str = kill mydr( spid ) ToString() cm CommandText = str cm CommandType = CommandType Text Application DoEvents() cm ExecuteNonQuery() 杀进程 End While mydr Close() cm = New SqlCommand( RESTORE DATABASE JXbase FROM DISK= C:\Backup cn) 恢复备份 cm ExecuteNonQuery() MsgBox( 恢复成功成功 ) cn Close() cn Close()
lishixinzhi/Article/program/net/201311/12901
不知道你需要连的是哪个数据库,我以sqlserver数据库为例子
1、sqlconnection类位于名称空间system.data.sqlclient,所以先using
system.data.sqlclient
2、dim
sqlconnection1
as
sqlclient.sqlconnection
dim
strconnect
as
string=”data
source=服务器名;initial
catalog=数据库名;user
id=sa;password=;”
sqlconnection1=new
system.data.sqlclient.sqlconnection(strconnect)
sqlconnection1.open
‘打开数据库
sqlconnection1.close
‘关闭连接,释放资源
以上是通用的连库代码。其实你2个问题,只需要改一个地方。
第一个问题
dim
strconnect
as
string=”data
source=服务器名;initial
catalog=数据库名;user
id=sa;password=;”把这里的data
source=服务器名;改成data
source=.或者data
source=localhost
这是本地服务器,也可以用服务器名
第二个问题,同样也是改data
source=服务器名;改为data
source=192.168.1.1
同理,initial
catalog=数据库名根据是实际的改,第一个问题改成initial
catalog=publs
第二个问题改成initial
catalog=hero
VB.NET中有控件可以真接接点击属性进行连接配置.
SqlConnect数据连接控件.点击ConnectionString属性进行配置就可以了.
VB.NET中没有RecordSet了.取而代之的是DataSet.
在VB.net中可以先用SqlConnection对像来连接数据库再用SqlDataAdapter对像来读取数据并填充到DataSet里.然后就可以进行数据绑定了.
例:
dim
conn
as
SqlConnection
dim
da
as
SqlDataAdapter
dim
ds
as
Dataset
set
conn
=
new
SqlConnection
conn.ConnectionString="server=serverIP;database=databasename;uid=userid;pwd=password";
conn.open
da
=
new
SqlDataAdapter
(,conn)
da.fill(ds)