189 8069 5689
ADO.net +SQLSever（比如说你的服务器是：MYSQLSERVER,你要连的数据库是pubs）
成都创新互联主要从事成都做网站、网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务迪庆州,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108
首先引入命名空间(在public class ..之上）
imports system.data.sqlclient
⑴信任连接（不用使用用户名，密码）
Dim mycon As New SqlConnection("server=MYSQLSERVER;database=pubs;integrated security=true;")
mycon.open()
....
mycon.close()
⑵采用用户名和密码连接(假如你的数据库登陆用户名为sa,密码为：dorient)：
Dim mycon As New SqlConnection("server=MYSQLSERVER;database=pubs;uid=sa;pwd=dorient;")
1，使用ADO connection对象
首先，要建立ADO引用，定义connection这个类，然后实例化对象。
代码完成如下：
span style="font-size:18px;"Dim objCn As New Connection, objRs As New Recordset
objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" "Data Source=" App.Path "\实例01.mdb"
objCn.Open
/span
2，使用ODBC数据源
首先，打开电脑上的ODBC数据源，建立关系。
步骤如下：
1），打开电脑上的ODBC数据源
如下图所示：
2）点击添加
3）命名
4）和数据库源建立关系
5）用代码实现连接
span style="font-size:18px;"
dim objCn As Connection
Set objCn = New Connection
objCn.Open "DSN=实例2DSN"
/span
3、ADO Data 控件创建连接
1）右击data控件，选择ADODC属性
2）从三种连接资源中选择一种。
使用data Link 文件：直接点击浏览，找到包含连接字符串的.udl文件即可
使用ODBC数据源连接，单击新建
选择用户数据库，之后的操作跟2中步骤一样。
使用连接字符串：单击生成
测试连接
4、使用数据环境设计器创建数据库连接
添加引用
右击创建连接，在右击想要连接的属性，之后的操作跟data控件中使用字符串中的操作一致
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
编写一个宽带连接的批处理脚本：
rasdial entryname [unseranamd 12345678]
编写一个宽带断开的批处理脚本：
rasphone -h entryname
在vb中调用这两个脚本执行就可以了；
Data Source=(local)\NetSDK;Initial Catalog=北风贸易;Integrated Security=SSPI;User ID=myDomain\myUsername;Password=myPassword;
你试看这个代码。。。
告诉你原理吧，要实现邮箱激活其实就是解决服务器上发邮件的问题，用户注册后，把用户状态默认成未激活，然后生成一个链接到一个页面，在那个页面加载时运行一个SQl语句把用户状态改成激活，然后再跳转到什么成功激活的页面就可以了，当然要传递一些有效的参数了；邮件激活的话就给注册时用户填写的邮箱发信就可以了，内容里面写上那个自动生成链接，怎么发邮件呢，建议你使用第三方控件Jmail不错，当然还有别的，如果用Smtp协议发的话20封左右就挂掉了···
找回密码一样，用户回答对密保问题的话就把密码给他发到邮箱就是了，归根结底还是发邮件···
补一句：源码的没有····