189 8069 5689
1、 用The SQL Server .NET Data Provider连接数据库
网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、成都小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了平塘免费建站欢迎大家使用！
The SQL Server .NET Data Provider是利用SqlConnection类来连接SQL Server7.0或更高版本的数据库，
SqlConnection类位于名称空间System.Data.SqlClient下。
连接代码：
Dim sqlConnection1 As SqlClient.SqlConnection
Dim strConnect As String=”data source=服务器名;initial catalog=数据库名;user id=sa;password=;”
sqlConnection1=New System.Data.SqlClient.SqlConnection(strConnect)
sqlConnection1.open ‘打开数据库
sqlConnection1.close ‘关闭连接，释放资源
2、 用The OLE DB .NET Data Provider连接数据库
上面已经说过，利用The OLE DB .NET Data Provider可以访问Access、Oracle和SQL Server等种数据
库，那么，它是怎样访问这些数据库的呢？The OLE DB .NET Data Provider是通过位于名称空间Sy
stem.Data.OleDb类库下的OleDbConnection类来连接这三种不同类型的数据库的。下面举例说明:
1)连接SQL Server数据库
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=”Provider=SQLOLEDB;Persist Security Info=False;Data Source=服务器名;Initial Catalog=数据库名;User ID=sa;Password=;”
oleDbConnection1=New System.Data.OleDb.OleDbConnection(strConnect)
2)连接Access数据库
假设要连接的Access数据库名为“Example.mdb”，存放在d:\Data\目录下。
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Data\ Example.mdb”
oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)
3)连接Oracle数据库
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=”Provider=MSDAORA;Data Source=服务器名;User ID=用户ID;Password=密码;”
oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)
3、 用The ODBC .NET Data Provider连接数据库
The ODBC .NET Data Provider连接数据库是通过OdbcConnection类来实现的，这个类位于名称空间
Microsoft.Data.Odbc下，而名称空间Microsoft.Data.Odbc是封装在Microsoft.Data.Odbc.dll文件下的。
由于篇幅有限，这里就只介绍连接Sql Server和Oracle数据库的方法，其他数据库的连接方法基本类
似，我就不再多讲了。
1)连接Sql Server数据库
Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection
Dim strConnect As Sting=”Driver={SQL Server};Server=服务器名;Uid=sa;pwd=;Database= 数据库名;”
odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)
2)连接Oracle数据库
Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection
Dim strConnect As Sting=”Driver={Microsoft ODBC for Oracle};Server=服务器名;Uid=sa;pwd=;”
odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)
四、总结
通过本文的介绍，读者基本掌握了在Visual Basic.NET中用ADO.NET和ODBC.NET连接各种数据库的方法
。以上三种驱动针对不同的数据库，它们的性能方面也有很大的不同：The SQL Server .NET Data Provider
的效率最高；The OLE DB .NET Data Provider的效率比较底；The ODBC .NET Data Provider的效率最慢。
具体连接哪一种数据库选用哪一种数据驱动要从工作效率方面来考虑。
以上回答你满意么？
我 看了一下应该是你第一次连接上后，cnn.open就打开并持续开着，并没有关闭，所以，你断网后，第二次连接，他依然是打开的。
另外：
我个人建议你要学会用vb.net的组件，自己连太麻烦，他有现成的，你直接在数据库里选择添加新数据源，按照提示把数据库添加上，然后，你会看到你的程序下面会多了个数据集(dataset).
最后要做的就是使用这些数据集了。以form1为例，你添加一个datagridview,然后在他的数据源上选择刚才添加的项数据集中的某个数据表，然后你会看到，在form1中多了一个dataadapter,sqlconn,datset,并且在form1的load事件中，你会发现多了一条语句，dataadapet.fill(dataset)。
当你运行程序并更改了datagridview后，想要更新数据，只需要在后面，增加一个button,并设置他的click事件为：dataadapter.update(dataset)
怎么样，是不是还有一个问题想问？就是如何更改数据源，很简单，在form1的load事件中，dataadapter.fill(dataset)这条语句之前，再增加一条，sqlconn.ConnectionString = "server=**;database=**;uid=**;pwd=**;Connect TimeOut=2"这个就是你的数据源。
希望我的答案能令你满意。
基于.Net的SAP Portal开发
最近因为项目的需要，必须考虑intelliFlow.Net与SAP的整合问题，于是抽空研究了一下，发现还真是有趣。现整理一下，聊作记忆。
一、几个基本术语
让我们先了解几个概念，在阅读和查阅任何关于SAP Portal开发的资料之前，你必须了解它们。
（1）Portal Development Kit for Microsoft .NET (PDK for .NET)
SAP企业Portal开发包PDK.Net允许VS.Net开发者为SAP应用构建企业Portal组件。对于那些在Microsoft.Net平台上有足够投资的企业而言，这无疑是好消息，因为你将可以采用SAP NetWeaver技术通过PDK.Net极大的保护和重用你的.Net投资。
目前，PDK.Net支持C#和VB.Net两种语言。
（2）SAP Enterprise Portal
SAP Enterprise Portal是一种应用集成平台，它把企业的商业信息、企业应用和服务等等整合在一起，并且以独立的基于Web的用户界面的形式展示给操作者。
关于这一点，我以为与其它的Portal平台没有任何区别，比如BizTalk。
（3）Portal Content
Portal Content是一组Portal对象的统称。这些Portal对象存储在PCD-----Portal Content Directory中，Portal管理者可以构建、定义这些对象的外观和操作，并且访问后台的SAP应用。
（4）iView
iView是Portal Content面对用户的逻辑再现，iView本质上是一个可视化的组件，从物理的Portal Content获取数据并且在Portal中感知和展示数据。
（5）Portal Component
Portal Component则是iView的支撑组件，它隐藏在iView的背后，所有展示给用户的iView外观的背后，都是经由某个对应的Portal Component从Portal Content获取数据并且推介给iView展示。
（6）Portal Component VS. iView
Portal Component看起来与iView非常类似，但是请记住它们有很大的区别。它们之间的区别类似于“对象与对象的实例”的关系。
采用PDK.Net开发的Code Object（代码化对象）被部署在企业Portal中，并且作为Portal Component引用。
当Portal Content管理者利用Portal Component构建自己的iView时，这些Portal Component被实例化。本质上，一个iView是一个Portal Component的实例。
（7）Portal Application
Portal Application是一组部署在同一个Portal上的逻辑上相关的Portal Component的集合。
（8）Portal Services
Portal Services是一组为Portal Component提供服务的Portal Middleware。
二、基于PDK.Net的Portal架构
考察上图，我们会发现PDK.Net主要由三部分构成：
A、 设计时环境（Portal Add-in）
B、 运行时环境（Portal Runtime）
C、 Java-.Net互操作框架（Interoperability Framework）
（1） 设计时环境（Portal Add-in）
Portal Add-in扩展了VS.Net的功能，使得.Net开发者可以构建、部署和调试Portal Component。所有的Portal Object（如iView Profile, User Context）和Portal Service（如(Systems Landscape Service, User Management Service）将通过API的方式提供给Portal Component开发者。
（2） 运行时环境（Portal Runtime）
Portal Component的运行必须依赖于Portal Runtime，它以NT服务的方式托管在.Net引擎中。
（3） Java-.Net互操作框架（Interoperability Framework）
Java-.Net互操作框架使得用.Net构建的Portal运行时与基于Java的SAP企业Portal之间可以通信。
通常在两端各有一个组件：Portal端是Java Portal 组件，.Net端是Remoting组件。很奇怪，它们之间居然不是采用Soap协议，我不知道SAP的技术人员是出于何种考虑。
（4） SAP .Net连接桥（SAP .NET Connector）
通常SAP的.Net Connector是一个附加工具，该工具可以使得.Net的Portal Component连接到SAP的后台系统，并且完全的访问其业务对象库。
三、PDK.Net的运行时环境
PDK.Net的运行时环境包括.Net Portal运行时和Java-.Net互操作组件运行时
如下图所示，运行时流程如下：
Portal从iView接受请求。
Portal 检测到这是一个.NET iView。
Portal分发请求给Java-.Net互操作组件，因为只有该组件才能与.Net Portal 运行时通信。
Java-.Net组件传递请求给.Net Portal运行时。
如果该iView的请求需要访问SAP后端系统，那么该请求将被传递到SAP的.Net连接桥。
SAP的.Net连接桥连接到SAP后端系统，获取或者更新数据。
结果返回到iView。
该.Net iView必须被.Net Portal Runtime 处理和规则化（着色）后，传递给互操作组件。
处理结果通过互操作组件直接返回到Portal。
结果通过J2EE Server推送给浏览器。
注意：在设计状态，其过程与此相同。
四、其它
PDK.Net目前是2.5版，评估版有30天的试用期。我注册，并根据SAP的要求下成功。安装之后，感觉外观很丑陋。SAP的东西就是这样，有很好的理念和业务模型，但是技术上总是差强人意。
不过，我根据SAP的Manual尝试着做了一个Case，发现这个东西和一般的.Net Assembly没有什么区别，使用起来还是很方便的。
1·绑定数据源来进行连接
2.用代码连接
先到数据库建立一个数据库和相应的表
连接数据库的代码：
Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="
dim conn As SqlClient.SqlConnection
try
conn = New SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
登录代码：Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="
dim conn As SqlClient.SqlConnection
conn = New SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open()
sqlstr = "Select * From Amd Where AmdName='" TextBox1.Text "' And AmdPwd = '" TextBox2.Text "'"
Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)
Dim dr As SqlClient.SqlDataReader
dr = sqlcmd.ExecuteReader
If dr.Read = True Then '判断一条记录为真
kf.Show() '显示下个窗体
Me.Hide() ’隐藏当前窗体
Else
MessageBox.Show("输入信息有误！", "提示")
TextBox1.Text = ""
TextBox2.Text = ""
End If