十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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封左右就挂掉了···
找回密码一样,用户回答对密保问题的话就把密码给他发到邮箱就是了,归根结底还是发邮件···
补一句:源码的没有····