VB+SQL 问题?急!! 我是用VB做的程序,在写程序是就是连接另一台机器上的SQL数据库,可是我要制作安装程序,我怎么把SQL数据库,装到软件的目录里呀,就是在程序运行时读当前目录中的SQL数据库,而不是SQLSERVER目录中的数据库?请指教! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你的程序啟動時應該有一個測試連接SQL的窗口,測試連接成功動態寫連接字串,而不是寫死在裡面這樣安裝文件跟SQl就可以分離開來,各自安裝 '附加数据库Strsql = "exec sp_detach_db"Set rs = conn.Execute(Strsql)Dim DName As StringDim FName As StringStrsql = "create database " & DName & " on primary(filename='" & FName & "') for attach"Set rs = conn.Execute(Strsql)'添加用户及权限Dim UName As Stringsp_addrolemember N'db_owner', N'"& UName &"' "'Set rs = conn.Execute(Strsql)MsgBox "执行成功" excel VB 窗体上添加了CommonDinlog控件,打开颜色对话框,如何判断鼠标单击了"确定"按钮? 编辑excel文件后,如何关闭Excel.EXE进程,急需高手指点 VB和VC间传字符串的问题 vb中水晶报表数据源更换的问题 各位老鳥: 幫幫忙啊!關于OLE對象的保存!!!! 好久都還沒有搞定! 特急!高分求vb4英文版或中文版皆可 有没人知道在WINXP下面怎么安装vb5.0(急啊,,) 我的读图程序哪里错了呢? 请救!关于日期的问题----------------在线等待。 关于.rowCount的奇怪现象,谁能帮帮我,100分 求助旅店管理系统问题,在线着急!
測試連接成功
動態寫連接字串,而不是寫死在裡面
這樣安裝文件跟SQl就可以分離開來,各自安裝
Strsql = "exec sp_detach_db"
Set rs = conn.Execute(Strsql)Dim DName As String
Dim FName As String
Strsql = "create database " & DName & " on primary(filename='" & FName & "') for attach"
Set rs = conn.Execute(Strsql)
'添加用户及权限
Dim UName As String
sp_addrolemember N'db_owner', N'"& UName &"' "
'Set rs = conn.Execute(Strsql)
MsgBox "执行成功"