求创建SQL（2000）数据库的VB代码

创建SQL

Server

2000数据库

Dim

ADOcn

As

New

ADODB.Connection

Dim

Sqls

As

String

'连接到master数据库，创建新数据库

ADOcn.ConnectionString

=

"driver={SQL

Server}server=uid=sapwd=database=master"

ADOcn.Open

'DISK

INIT

NAME='我的数据库'，是数据库名称，显示在企业管理器中的名称

'PHYSNAME='d:\我的数据库_Data.mdf'，是数据库文件名

'SIZE=5120，数据库初始大小

Sqls

=

"DISK

INIT

NAME='我的数据库',PHYSNAME='d:\我的数据库_Data.mdf',SIZE=5120"

'在硬盘上建立数据库文件

ADOcn.Execute

Sqls

Sqls

=

"CREATE

DATABASE

我的数据库

on

我的数据库=5120"

'创建数据库

ADOcn.Execute

Sqls

ADOcn.Close

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=JJKInitial Catalog=masterIntegrated 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

给你一个示例代码吧

Private Sub cmdOK_Click()

Static nErr As Integer

Dim bErr As Boolean

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim strSql As String

If txtUser.Text = "" Or txtPwd.Text = "" Then

MsgBox "用户或密码不能为空!", vbCritical, "错误"

bErr = True

Else

Set conn = OpenConnForSqlServer("127.0.0.1\SQLEXPRESS", "xsfh", "")

strSql = "select * from users where name = '" &txtUser.Text &"' and password='" &txtPwd.Text &"'"

Set rs = OpenRecordset(strSql, conn)

If rs.EOF Then

MsgBox "错误的用户名或密码!", vbCritical, "错误"

bErr = True

Else

Unload Me

frmMain.Show

End If

End If

If bErr Then

nErr = nErr + 1

If nErr = 3 Then

Unload Me

Else

txtUser.Text = ""

txtPwd.Text = ""

txtUser.SetFocus

End If

End If

End Sub

Public Function OpenConnForSqlServer(ByVal ServerName As String, ByVal UserId As String, ByVal PassWord As String, Optional ByVal DateBaseName As String = "") As ADODB.Connection

Dim AdoConn As New ADODB.Connection

Dim strConn As String

With AdoConn

strConn = "Provider=SQLOLEDB.1Persist Security Info=TrueUser ID=" &UserId &"Password=" &PassWord &"Data Source=" &ServerName

If DateBaseName <>"" Then strConn = strConn &"database=" &DateBaseName

.ConnectionString = strConn

.Open

End With

Set OpenConnForSqlServer = AdoConn

End Function

Public Function OpenConnForSqlServerByWin(ByVal ServerName As String, Optional ByVal DateBaseName As String = "") As ADODB.Connection

Dim AdoConn As New ADODB.Connection

Dim strConn As String

With AdoConn

strSql = "Provider=SQLOLEDB.1Integrated Security=SSPIPersist Security Info=FalseData Source=" &ServerName

If DateBaseName <>"" Then strConn = strConn &"Initial Catalog=" &DateBaseName

.ConnectionString = strConn

.Open

End With

Set OpenConnForSqlServerByWin = AdoConn

End Function

Public Function OpenRecordset(ByVal strSql As String, ByVal AdoConn As ADODB.Connection) As ADODB.Recordset

Dim rs As New ADODB.Recordset

With rs

.CursorLocation = adUseClient

.CursorType = adOpenDynamic

.Open strSql, AdoConn, , , adCmdText

End With

Set OpenRecordset = rs

End Function

Public Function RunTrans(ByVal tranSql As String, ByVal AdoConn As ADODB.Connection)

With AdoConn

.BeginTrans

.Execute tranSql

.CommitTrans

End With

End Function

---