找回密码
 注册
搜索
热搜: 回贴
微赢网络技术论坛 门户 服务器 Windows 查看内容

无法写入数据库的解决方法

2010-1-31 18:51| 发布者: admin| 查看: 229| 评论: 0|原作者: 九天玄女

  这两天发现我运营的一个门户网站出现了数据无法写入的问题,新会员不能注册,信息不能发布,不能正常登陆会员系统,实在找不到原因,觉定还原备份数据库,但在恢复mssql数据库过程过程中,提示数据库日志满已满,请清空数据库日志后,还原。我想可能就是这个原因导致数据不能正常的写入,然后就baidu搜索了相关的信息,终于找到了原因,程序运行完,修复成功,今天把源代码公布出来,希望对大家有所帮助,大家以后出现相似问题不防也采有清空数据库日志的方法,可以也会解决相似问题,清空数据库日志不会对服务器数据有所损害,能解决数据库不能写入的原因,代码如下:   'sql数据库连接参数:数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
  '连接名(SqlLocalName)(本地用local,外地用IP)

  Const SqlDatabaseName = "数据库名称"

  Const SqlPassword = "数据库用户密码"

  Const SqlUsername = "数据库用户名"

  Const SqlLocalName = "数据库服务器" '如果服务器是本机,可以设置为:(local),如果是远程要设置数据库ip地址

  '以下内容请不要修改

  Dim ConnStr

  ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " &

  SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"

  Set conn = Server.CreateObject("ADODB.Connection")

  conn.open ConnStr

  conn.execute("DUMP TRANSACTION " & SqlDatabaseName & " WITH NO_LOG")

  conn.execute("DBCC SHRINKDATABASE(" & SqlDatabaseName & ")")

  conn.close

  set conn=nothing

  Response.Write "您的mssql数据库日志已清空。"

  %>

最新评论

QQ|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )

GMT+8, 2024-9-29 11:32 , Processed in 0.205762 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5

© 2001-2023 Discuz! Team.

返回顶部