用VB运行编好的程序后显示找不到数据库，请检查网络配置或打开数据库服务器怎么解决？

如果你的数据库连接控件（ADODC）或ADODB的Connection对象，设置的是数据库的绝对路径（如E:\myapp\data\db1.mdb），那么当数据库的位置发生变动时（比如把程序拿到其他计算机运行时），就会提示找不到数据库了。解决的办法是把绝对路径改为相对路径（相对于本exe文件所在的文件夹，比如data\db1.mdb）。

是sql还是acc的数据库，数据库引用的用的什么语句，这是关键，打印正常是因为调用数据时没错，当然显示打印也没错，如果调用数据库后已关闭调用，此时内在中只有调用结果而没有数据库伺服语句，则是打不开数据库的，所以你修改完成后应再次调用打开数据库后才能保存修改。

只有原代码才能读取相关数据,就像一款游戏,没有根目录,在对战平台是启动不了游戏的

下面给你点别的相关知识,仅供参考.

小写字母的ascii值在90到116 之间

用rnd随机函数获得这之间的值，在使用chr或者其他函数转换成字符类型，

dim filename as string

filename="D:\VB\123"+chr(rnd()*90+26)+chr(rnd()*90+26)+chr(rnd()*90+26)+".txt"

没有测试过，思路应该是对的

'SQL版

Private Con As String = "<连接字符串>"'<连接字符串>可以自动生成

Private connection As SqlClient.SqlConnection

Private command As SqlClient.SqlCommand

Public Function DBopen() As Boolean '打开数据库

Try

connection = New SqlClient.SqlConnection

connection.ConnectionString = Con

connection.Open()

Return True

Catch ex As Exception

MsgBox(ex.ToString)

Return False

End Try

End Function

Public Function DBclose() As Boolean '关闭数据库

Try

connection = New SqlClient.SqlConnection

connection.ConnectionString = Con

connection.Close()

Return True

Catch ex As Exception

MsgBox(ex.ToString)

Return False

End Try

End Function

'Access版

Private Con As String = "<连接字符串>"'<连接字符串>可以自动生成

Private connconnection As OleDb.OleDbConnection

Private conncommand As OleDb.OleDbCommand

Public Function DBopen() As Boolean

Try

Me.connconnection = New OleDb.OleDbConnection

Me.connconnection.ConnectionString = Con

connconnection.Open()

Return True

Catch ex As Exception

MsgBox(ex.ToString)

Return False

End Try

End Function

Public Function DBclose() As Boolean

Try

Me.connconnection = New OleDb.OleDbConnection

Me.connconnection.ConnectionString = Con

connconnection.Close()

Return True

Catch ex As Exception

MsgBox(ex.ToString)

Return False

End Try

End Function

两者没什么大区别

---