使用TextBox的值创建SQL数据库 [英] Create Sql Database Using Value Of TextBox

查看:79
本文介绍了使用TextBox的值创建SQL数据库的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

我想知道如何使用价值创建Sql数据库

vb.net应用程序中的文本框



Indranil

I want to know that How can I create Sql Database using value
of a textbox in vb.net application

Indranil

推荐答案





下面的代码,我已将文本框值作为数据库名称传递,

Hi,

Below code, I have passed the text box value as database name,
Private Sub btnCreateDataBase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateDataBase.Click
        Dim conStr As String = "Server=Myserver;Database=;Trusted_Connection = yes"
        Dim objCon As New SqlConnection(conStr)
        Dim obj As SqlCommand
        Dim strSQL As String

        ' Create the database
        objCon.Open()
        obj = objCon.CreateCommand()
        strSQL = "CREATE DATABASE _" + TextBox1.text
        ' Execute
        obj.CommandText = strSQL
        Try
            obj.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        
        objCon.Close()
        objCon = Nothing
End Sub


Private Sub btnCreateDataBase_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)处理btnCreateDataBase.Click



DIM dbname AS STRING

dbname = TEXTBOX1.TEXT

Dim conStr As String =Server = Myserver ; Database =; Trusted_Connection = yes

Dim objCon As New SqlConnection(conStr)

Dim obj As SqlCommand

Dim strSQL As String



''创建数据库

objCon.Open()

obj = objCon.CreateCommand()

strSQL =CREATE DATABASE [+ dbname +]

''执行

obj.CommandText = strSQL

尝试

obj.ExecuteNonQuery()

Catch ex As Exception

MessageBox.Show(ex.Message)

结束尝试



objCon.Close()

objCon = Nothing

End Sub



运行此项后,它将成功创建名称为数字的数据库。 />
Indranil
Private Sub btnCreateDataBase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateDataBase.Click

DIM dbname AS STRING
dbname = TEXTBOX1.TEXT
Dim conStr As String = "Server=Myserver;Database=;Trusted_Connection = yes"
Dim objCon As New SqlConnection(conStr)
Dim obj As SqlCommand
Dim strSQL As String

'' Create the database
objCon.Open()
obj = objCon.CreateCommand()
strSQL = "CREATE DATABASE [" + dbname + "]"
'' Execute
obj.CommandText = strSQL
Try
obj.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

objCon.Close()
objCon = Nothing
End Sub

After running this it will successfully create the database having name in numeric.
Indranil


这篇关于使用TextBox的值创建SQL数据库的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!

查看全文
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆