问题描述
请大家提供给我一个访问sqlserver2000数据库的访问类，包括连接数据库、操作数据库（datatable,dataset）等。注意：1。连接数据库的字符串（数据库名称、登录名称、登录密码等）是从config.xml中提取的。也就是这个字符串不是写死在类库中的。2。请尽量提供完整的类库3。请说明如何使用这个类库小弟初学VB.net，请大家帮助！谢谢！我的另外一个帖子，不过已经结贴了。http://topic.csdn.net/u/20071106/16/c10246de-4bfa-453e-af9c-08be86f68b28.html
解决方案
解决方案二：
一般是在App.exe.config里面保存连接新建数据集,有向导,一步步做就行那样做自动生成
解决方案三：
如LZ所述,保存在App.exe.config里面,你可以通过新增一个应用程序配置文件来添加此文件,然后如下面是这个配置文件加入连接字符串(连接字符串根据你的环境做修改).<?xmlversion="1.0"encoding="utf-8"?><configuration><appSettings><addkey="sqlcon"value="server=myserversqlexpress;initialcatalog=Northwind;uid=sa;pwd=pwd"/></appSettings></configuration>
下面是连接SQLServerNorthwind数据库并显示数据的简单示例dimcnasnewSqlConnection(System.Configuration.ConfigurationSettings.AppSettings("sqlcon"))dimdsasnewDataSet()dimdaasnewSqlDataAdapter("select*fromcustomers",cn)da.Fill(ds,"users")'在窗体上添加一个dataGridView控件,或者使用dataGrid控件也行dataGridView1.DataSource=ds.Tables("users")
解决方案四：
如果你不想使用App.exe.config默认配置文件,那么就自己创建xml文件或者config配置文件,使用xmldocument类来读写,xmldocument具体使用方法参考MSDN,MSDN上一般都配有范例代码
解决方案五：
XML文件的读写请参考我的帖子：http://blog.csdn.net/zhouxiaotan/archive/2006/02/22/606547.aspx数据连接的方法黑马王子同志的就是正确的。另外可以参照MSDN上的Sqlcommand,datareader,dataadpter这三个类来确定如何执行Sql语句你的类就可以用了。
解决方案六：
ADO.NET
解决方案七：
MS提供一个叫SqlHelp的类,网上可以搜到至于用法,还是建议楼主先熟悉下ADO.NET的基本用法
解决方案八：
SQlhelp好用吗？大家用得多吗？
解决方案九：
再次顶上
解决方案十：
请问config配置文件可以通过程序进行修改吗？
解决方案十一：
當然可以,該文件配置上是一個xml文件,使用xmldocument進行修改
解决方案十二：
怎么修改呢？请指示
解决方案十三：
再问
解决方案十四：
SQlhelp还不错啊,应该再根据自己的情况做一些更改
解决方案十五：
我这里倒有份还行的数据库连接类，参考petshop根据现有项目需求做成的我可以在MSN上传给你我MSN：luoxia001@hotmail.com
解决方案：
谢谢楼上，我加入你msn了，不在线吗？
解决方案：
把sqlserver的登录名称和密码放在app.config中，可以通过程序来修改app.config吗？
解决方案：
再顶
解决方案：
类：xml_cls:ImportsSystem.XmlPublicClassXml_ClsPrivateXmlDocAsXmlDocumentPrivateXmlFileAsStringPublicReadOnlyPropertyXmlFileName()AsStringGetReturnXmlFileEndGetEndPropertyPublicReadOnlyPropertyXmlText()AsStringGetReturnXmlDoc.InnerXmlEndGetEndPropertySubNew(ByValFileNameAsString,OptionalByValCreateNewAsBoolean=True,OptionalByValRootAsString="XML",OptionalByRefIsOKAsBoolean=False)IsOK=FalseXmlFile=""DimreaderAsSystem.Xml.XmlReader=NothingTryreader=NewSystem.Xml.XmlTextReader(FileName)reader.Read()CatchexAsExceptionIfreaderIsNotNothingThenreader.Close()Debug.Print("New-"&ex.Message)IfNotCreate(FileName,Root)ThenReturnFinallyIfreaderIsNotNothingThenreader.Close()EndTryIsOK=TrueXmlFile=FileNameXmlDoc=NewXmlDocumentXmlDoc.Load(XmlFile)EndSubPublicFunctionCreate(ByValFileNameAsString,OptionalByValRootAsString="XML")AsBooleanDimNewXMLAsXmlTextWriter=NothingTryNewXML=NewXmlTextWriter(FileName,Nothing)NewXML.Formatting=Formatting.IndentedNewXML.WriteStartDocument()NewXML.WriteComment(My.Application.Info.AssemblyName&"Settings")NewXML.WriteStartElement(Root)NewXML.WriteAttributeString("Powered","Null")NewXML.WriteEndElement()NewXML.WriteEndDocument()NewXML.Flush()NewXML.Close()CatchexAsExceptionDebug.Print("Create-"&ex.Message)ReturnFalseFinallyIfNewXMLIsNotNothingThenNewXML.Close()NewXML=NothingEndIfEndTryReturnTrueEndFunctionPublicFunctionSave(ByValaSectionAsString,ByValaKeyAsString,ByValaValueAsString)AsBooleanDimPaths()AsStringDimnAsIntegerDimNode,Node2AsXmlNodeDimEleAsXmlElementWhileStrings.Left(aSection,1)="/"aSection=Strings.Mid(aSection,2)EndWhile'段名是否为空IfaSection=""ThenXmlDoc.DocumentElement.RemoveAll()ElsePaths=Strings.Split(aSection,"/")TryNode=XmlDoc.DocumentElement.SelectSingleNode(Paths(n))IfNodeIsNothingThenEle=XmlDoc.CreateElement(Paths(n))Node=XmlDoc.DocumentElement.AppendChild(Ele)EndIfForn=1ToPaths.Length-1IfPaths(n)=""ThenContinueForNode2=Node.SelectSingleNode(Paths(n))IfNode2IsNothingThenEle=XmlDoc.CreateElement(Paths(n))Node2=Node.AppendChild(Ele)EndIfNode=Node2Next'键名是否为空IfaKey=""ThenNode.RemoveAll()ElseEle=Node.Item(aKey)IfEleIsNothingThenEle=XmlDoc.CreateElement(aKey)Node.AppendChild(Ele)EndIf'值是否为空IfaValue=""ThenNode.RemoveChild(Ele)ElseEle.InnerText=aValueEndIfEndIfCatchexAsExceptionDebug.Print(ex.Message)ReturnFalseEndTryEndIfXmlDoc.Save(XmlFile)ReturnTrueEndFunctionPublicFunctionRead(ByValaSectionAsString,ByValaKeyAsString,OptionalByValaDefaultValueAsString="")AsStringDimNodeAsXmlNodeNode=XmlDoc.DocumentElement.SelectSingleNode(aSection&"/"&aKey)IfNodeIsNothingThenReturnaDefaultValueReturnNode.InnerTextEndFunctionEndClass=============================================================app.config:<?xmlversion="1.0"encoding="utf-8"?><configuration><configSections><sectionGroupname="userSettings"type="System.Configuration.UserSettingsGroup,System,Version=2.0.0.0,Culture=neutral,PublicKeyToken=b77a5c561934e089"><sectionname="聚城物业管理系统V2008.My.MySettings"type="System.Configuration.ClientSettingsSection,System,Version=2.0.0.0,Culture=neutral,PublicKeyToken=b77a5c561934e089"allowExeDefinition="MachineToLocalUser"requirePermission="false"/></sectionGroup></configSections><connectionStrings><addname="SqlConnString"connectionString="DataSource=.;InitialCatalog=my_db;PersistSecurityInfo=True;UserID=sa"providerName="System.Data.SqlClient"/></connectionStrings></configuration>=======================================================请问如何用上面的类修改app.config中的：<addname="SqlConnString"connectionString="DataSource=.;InitialCatalog=my_db;PersistSecurityInfo=True;UserID=sa"providerName="System.Data.SqlClient"/>修改成：<addname="SqlConnString"connectionString="DataSource=.;InitialCatalog=my_db;PersistSecurityInfo=True;UserID=dbusers"providerName="System.Data.SqlClient"/>谢谢！
解决方案：
再次顶上去
解决方案：
真的没有人理我啊
解决方案：
up
解决方案：
我说楼主这样的类还是要你自己写的在类中写几个得到datatable和datasetinserttableupdatetable并不是很难
解决方案：
好强!
解决方案：
到MicroSoft去找EnterpriseLibrary,其中有SqlHelp,还是源程序提供