本文共 632 字，大约阅读时间需要 2 分钟。

          命名空间：          <%@ Import Namespace="System.Data" %>

                                       <%@ Import Namespace="System.Data.SqlClient" %>   

            Dim connectionString = "Data Source=WIN-DF6RH11PCHL;Initial Catalog=WEBEIP3;User ID=sa;Password=;Password=1234;"

            Dim connectionObj As SqlConnection = New SqlConnection(connectionString)

           connectionObj.Open()             Dim sComm As New SqlCommand("SELECT EMail FROM dbo.AFS_Account WHERE AccountID='"+Username+"'", connectionObj)            Dim  da As  SqlDataAdapter= New SqlDataAdapter             sComm.CommandType = CommandType.Text             da.SelectCommand = sComm            Dim  ds As   DataSet = New  DataSet             Da.Fill(ds)             Dim Email as String=ds.Tables(0).Rows(0)("EMail")            connectionObj.Close() 

转载地址：https://blog.csdn.net/u012918430/article/details/18547809 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！