VB.NET独立数据库应用部署新电脑失败：无法创建ACI2数据库

1. SQL脚本语法错误（直接触发报错的原因） #

你的SQL脚本存在一处语法错误，导致CREATE DATABASE语句执行失败，后续操作自然找不到目标数据库：
原脚本中这一行：

ALTER DATABASE [ACI2] SET COMPATIBILITY_LEVEL = 150IF (1 = FULLTEXTSERVICEPROPERTY('IsFullTextInstalled'))

150与IF之间没有空格，SQL Server无法正确解析语句，会直接中断脚本执行，数据库创建流程失败。

修复：在150后添加空格，修改为：

ALTER DATABASE [ACI2] SET COMPATIBILITY_LEVEL = 150 IF (1 = FULLTEXTSERVICEPROPERTY('IsFullTextInstalled'))

2. 数据库日志文件路径错误 #

代码中生成日志路径的逻辑存在问题：

Dim logPath As String = Path.Combine(dataPath.Replace("Data", "Logs"), "ACI2_log.ldf")

Environment.SpecialFolder.LocalApplicationData的实际路径类似C:\Users\用户名\AppData\Local，用Replace("Data", "Logs")会把路径中的Data替换成Logs，生成C:\Users\用户名\AppLoLogs\Local这种不存在的路径，SQL Server无法创建日志文件，导致数据库创建失败。

修复：直接在LocalApplicationData目录下创建Logs文件夹（确保存在），再生成路径：

Dim dataPath As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
' 确保Logs文件夹存在
Dim logFolder As String = Path.Combine(dataPath, "Logs")
If Not Directory.Exists(logFolder) Then
    Directory.CreateDirectory(logFolder)
End If
Dim mdfPath As String = Path.Combine(dataPath, "ACI2.mdf")
Dim logPath As String = Path.Combine(logFolder, "ACI2_log.ldf")

3. 单批处理执行多语句的限制 #

SQL Server不允许在同一个批处理中创建数据库后，立即执行针对该数据库的操作（比如USE [ACI2]、创建表/存储过程）——新数据库需要短暂初始化，且同一连接的批处理上下文不会自动切换到新数据库。

修复：将SQL脚本按GO分隔符拆分成多个批处理，逐段执行：

' 读取脚本并替换路径后，拆分批处理
sqlScript = sqlScript.Replace("C:\Users\ADMIN\ACI2.mdf", mdfPath).Replace("C:\Users\ADMIN\ACI2_log.ldf", logPath)
Dim sqlCommands As String() = sqlScript.Split(New String() {"GO"}, StringSplitOptions.RemoveEmptyEntries)

' 连接数据库后逐个执行拆分后的命令
Using connection As New SqlConnection(connectionString)
    Try
        connection.Open()
        Dim existsSql = "SELECT 1 FROM sys.databases WHERE name = 'ACI2'"
        Using existsCommand As New SqlCommand(existsSql, connection)
            Dim exists As Boolean = CBool(existsCommand.ExecuteScalar())
            If Not exists Then
                For Each cmdText In sqlCommands
                    Dim cleanCmd = cmdText.Trim()
                    If Not String.IsNullOrEmpty(cleanCmd) Then
                        Using command As New SqlCommand(cleanCmd, connection)
                            command.ExecuteNonQuery()
                        End Using
                    End If
                Next
            Else
                Console.WriteLine("Database ACI2 already exists.")
            End If
        End Using
    Catch ex As SqlException
        Console.WriteLine("Error creating database: " & ex.Message)
        ' 可添加错误堆栈输出，方便定位具体问题
    Finally
        connection.Close()
    End Try
End Using

4. 额外问题：缺失Users表 #

你的UserLogin存储过程引用了[ACI2].[Users]表，但脚本中没有创建该表的语句，后续调用存储过程会报错。建议在脚本中添加：

USE [ACI2]
/****** Object:  Table [ACI2].[Users]    Script Date: 7/29/2024 12:13:57 AM ******/
SET ANSI_NULLS ON
SET QUOTED_IDENTIFIER ON
CREATE TABLE [ACI2].[Users]
(
    [UserName] NVARCHAR(40) NOT NULL PRIMARY KEY,
    [PasswordHash] VARBINARY(64) NOT NULL
) ON [PRIMARY]

验证步骤 #

1. 修复SQL脚本的语法错误，补充Users表创建语句；
2. 替换VB代码中的日志路径生成逻辑；
3. 修改脚本执行方式，按GO拆分执行；
4. 确保新电脑已安装SQL Server Express LocalDB（Visual Studio自带，纯净系统需单独安装）。

内容的提问来源于stack exchange，提问作者Habt