Question

vb.net 连接sqlserver2005的问题

vb.net菜鸟，哪位大神可以给我发些这方面的资料，感激不尽。。。
732459327@qq.com

Answer 1

Imports System.Data.SqlClient

Public Class SqlBaseDatasetDao : Implements IDAL.IBaseDataInfo

Dim strConStr as string="Data Source=192.168.24.177;Initial Catalog=ChargeNet2;User ID=sa;Pwd=123456" ;
Dim con As SqlConnection = New SqlConnection(strConStr)

Public Function GetBaseDataInfo() As Entity.BaseDataset Implements IDAL.IBaseDataInfo.GetBaseDataInfo
Dim sql As String = "select * from BaseDataset"
Dim BaseDataInfo As New Entity.BaseDataset
Dim sqlcmd As SqlCommand = New SqlCommand(sql, con)
Dim read As SqlDataReader

con.Open()
read = sqlcmd.ExecuteReader
read.Read()
BaseDataInfo.Rate = read.GetString(0)
BaseDataInfo.TmpRate = read.GetString(1)
BaseDataInfo.UnitTime = read.GetString(2)
con.Close()
Return BaseDataInfo

End Function