vb.net 怎么操作数据库？如何解决SQL Server数据库置疑问题

如果楼主熟悉VB6，可以直接在项目中添加ADODB的Com引用，这样你就可以像VB6那样操作数据库了！另外.NETFramework中连接数据库要用到ADO.NET。如果要操作Access数据库，要用到System.Data.OleDb命名空间下的许多类。比如按楼主所说，“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”：’首先导入命名空间ImportsSystem.DataImportsSystem.Data.OleDb’然后在某一个事件处理程序中写：DimconnAsNewOleDbConnection(“Provider=Microsoft.ACE.OLEDB.12.0;DataSource=数据库.accdb;JetOLEDB:DatabasePassword=MyDbPassword“)DimcommandAsNewOleDbCommand(“Select*From数据表“,conn)conn.Open()’打开数据库连接DimreaderAsOleDbDataReader=command.ExecuteReader()’执行SQL语句，返回OleDbDataReader对象DoWhilereader.Read()’读取一条数据textbox1.Text+=reader(“一些数据“)&VbCrLfLoopreader.Close()’关闭OleDbDataReaderconn.Close()’关闭连接

您好，是这样的：1.首先确认已经备份了.mdf和.ldf文件。2. 在SQL Server中新建一个同名的数据库，然后停止SQL Server服务。3. 用原有的.mdf和.ldf文件覆盖新建数据库对应的.mdf和.ldf文件。4. 重新启动SQL Server服务，这是应该会看到这个数据库处于置疑（Suspect）状态。5. 在SQL查询分析器中执行以下命令，以允许更新系统表：use mastergosp_configure “allow updates“,1reconfigurewithoverridego。6. 将这个数据库置为紧急模式：update sysdatabases set status = 32768 where name=“db_name“go。7. 使用DBCC CHECKDB命令检查数据库中的错误：DBCC CHECKDB(“db_name“)GO。8. 如果DBCC CHECKDB命令失败，请转至第10步，否则先将数据库置为单用户模式，再尝试对其进行修复：sp_dboption “db_name“,“singleuser“,“true“DBCCCHECKDB(“db_name“,REPAIR_ALLOW_DATA_LOSS)GO如果在执行DBCCCHECKDB(“db_name“,REPAIR_ALLOW_DATA_LOSS)命令时提示说数据库未处于单用户模式状态的话，则重新启动SQLServer服务，然后继续尝试。9. 如果DBCCCHECKDB(“db_name“,REPAIR_ALLOW_DATA_LOSS)命令失败，请转至第10步，否则若成功修复了数据库中的错误：重新执行DBCC CHECKDB(“db_name“)命令，确认数据库中已没有错误存在。清除数据库的置疑状态：sp_resetstatus “db_name“清除数据库的单用户模式状态：sp_dboption “db_name“,“single user“,“false“重新启动SQL Server服务，如果一切正常的话，则数据库已经成功恢复。10.如果以上步骤都不能解决问题的话，请参考附件中的文档尝试通过重建事务日志来恢复数据库中的数据。如果您只有MDF文件，问题就更加复杂一些，我们需要直接重建事务日志了:　　1. 在SQL Server中新建一个同名的数据库，然后停止SQL Server服务。　　2. 用原有的ldf文件覆盖新建数据库对应的.mdf文件，将其日志文件（.ldf）删除。　　3. 启动SQL Server服务，并将数据库置为紧急模式（同上: 步骤5和步骤6）。　　4. 停止并重新启动SQL Server服务。　　5. 执行以下命令重建数据库日志文件：(下面是个示例，您要用您实际的数据库名)　　DBCC REBUILD_LOG（“cas_db“, “D:\cas_db\cas_db_Log.LDF“）　　6. 重新将该数据库置为单用户模式。　　7. 再次尝试使用DBCC CHECKTABLE或DBCC CHECKDB命令检查并修复数据库中。

不用控件Private Sub Command1_Click() Dim objEmail As Object Set objEmail = CreateObject(“CDO.Message“) objEmail.From = “原邮箱“ objEmail.To = “目的邮箱“ objEmail.Subject = “vb邮件“ objEmail.Textbody = “ 正文“ objEmail.AddAttachment App.Path & “\abc.ini“ ’附件内容 objEmail.Configuration.Fields.Item(“ objEmail.Configuration.Fields.Item(“ objEmail.Configuration.Fields.Item(“ objEmail.Configuration.Fields.Item(“ objEmail.Configuration.Fields.Item(“ objEmail.Configuration.Fields.Item(“ objEmail.Configuration.Fields.Update objEmail.Send End Sub