vb连接数据库txt

Dim filePath As String = "C:\path\to\your\file.txt"
Dim fileContent As String = My.Computer.FileSystem.ReadAllText(filePath)

' 处理文件内容
Console.WriteLine(fileContent)

Dim connectionString As String = "Provider=SQLOLEDB;Data Source=yourServerName;Initial Catalog=yourDatabaseName;Integrated Security=SSPI;"
Dim connection As New ADODB.Connection()
connection.Open(connectionString)

Dim command As New ADODB.Command()
command.ActiveConnection = connection
command.CommandText = "SELECT * FROM yourTableName"

Dim recordset As ADODB.Recordset = command.Execute()

' 处理记录集
While Not recordset.EOF
    Console.WriteLine(recordset.Fields("yourFieldName").Value)
    recordset.MoveNext()
Wend

recordset.Close()
connection.Close()