全部答案

2018-05-07 12:12:04

•   '引入命名空间
  Imports System。Data。SqlClient
   '建立数据连接
   Dim strcon As String = "integrated security=sspi;" & "server=(local);database=master"
   Dim mycon As New SqlConnection(strcon)
   Private Sub Button1_Click(ByVal sender As System。
    Object, ByVal e As System。EventArgs) Handles Button1。Click
   '建立数据命令
   Dim mycmd As New SqlCommand
   mycmd。
    Connection = mycon
   mycmd。CommandType = CommandType。Text
   mycmd。CommandText = "create database student on" & _
   "( NAME = student_dat,FILENAME = 'D:datastudent。
    mdf')" & _
   "log on" & _
   "( NAME = 'student_log'," & " FILENAME = 'D:datastudent。ldf')"
   mycon。
    Open()
   '执行数据命令
   Try
   mycmd。ExecuteNonQuery()
   MsgBox("数据库创建成功!")
   Catch ex As Exception
   MessageBox。
    Show(ex。Message, "请注意!", MessageBoxButtons。OK, MessageBoxIcon。Stop)
   Finally
   End Try
   '关闭连接
   mycon。
    Close()
   End Sub
   Private Sub Button2_Click(ByVal sender As System。Object, ByVal e As System。EventArgs) Handles Button2。
    Click
   Dim mycmd1 As New SqlCommand
   mycmd1。Connection = mycon
   mycmd1。CommandType = CommandType。
    Text
   mycmd1。CommandText = "CREATE TABLE info(学号 int,姓名 varchar(50) NOT NULL,班级 varchar(50),出生年月 datetime,户籍 varchar(50) null)"
   mycon。
    Open()
   '执行数据命令
   Try
   mycmd1。ExecuteNonQuery()
   MsgBox("表创建成功!")
   Catch ex As Exception
   MessageBox。
    Show(ex。Message, "请注意!", MessageBoxButtons。OK, MessageBoxIcon。Stop)
   Finally
   End Try
   '关闭连接
   mycon。
    Close()
   End Sub。

  全部
  

  A***

  2018-05-07 12:12:04

  0 0 评论

  分享
  提交评论