求VB.NET动态连接SQL数据库原代码

来源：百度知道 编辑：UC知道 时间：2024/06/29 03:10:22
即程序放在任何机器上都不用修改程序，运行时动态添加服务器名，选择数据库和表以及输入用户名和密码
也就是用一个界面做连接配置
谢谢各位高手指点
运行时显示系统中服务器名，数据库

除非你用aceess做数据库 否则你至少还得配SQL SERVER数据库.
<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.SqlClient" %>
<script laguage="VB" runat="server">
sub page_load(sender as Object,e as EventArgs)
Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim ds as DataSet
'1.connect to sql server
myConnection = New SqlConnection( "server=localhost;database=Pubs;uid=ueytjdf;pwd=doekdf" )
myConnection.Open()
la1.text="Connection Opened!"

'2.Create a table
myCommand = New SqlCommand( "CREATE TABLE [test] ([id] [int] IDENTITY (1, 1) NOT NULL ,[name]

[char] (10) COLLATE Chinese_PRC_CI_AS NULL ,[sex] [char] (10) COLLATE Chinese_PRC_CI_AS NULL

)", myConnection )
myCommand.ExecuteNo