搜索
首页 电脑/网络 程序设计 数据库

怎样用VB添加数据库表,删除记录

全部回答

2018-05-07

0 0
    '引入命名空间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。

类似问题换一批

热点推荐

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
数据库
硬件
电脑装机
程序设计
互联网
操作系统/系统故障
笔记本电脑
反病毒
百度
软件
程序设计
数据库
VB
C/C++
汇编语言
JAVA相关
VC++
C#/.NET
其他编程语言
数据库
数据库
举报
举报原因(必选):
取消确定举报