从 SQL Server 2016 数据库创建 dBaseIV 文件
dBaseIV file creation from SQL Server 2016 database
我有如下要求:点击网页上的 link 按钮,我必须从 SQL Server 2016 数据库中获取一些记录并将它们转换为 dBaseIV 格式( .env, .ad1, .ad2, .veh) 文件并在最终用户可以单独下载文件的页面上显示 download/save 作为弹出窗口。
如有任何线索,我们将不胜感激。
dBaseIV files expected on click of link button
这就像 90 年代的要求 - 很多来自记忆......
这是一个 VS 2017 控制台应用程序...,创建一个名为 bill 的 DBaseIV 文件并插入一条记录,当然不包括创建、读取等逻辑 - 同样
- System.IO.File.Exists 在 64 位系统上的可靠性值得怀疑 - 其他人可能有更好的解决方案
- 我不使用 IIS - 所以不知道如何在那里设置下载
and - I 运行 这在 Dell Windows 10 机器上,dBaseIV 驱动程序存在于 ODBC
模块模块 1
Sub Main()
Dim connectionString As String = "Driver={Microsoft dBase Driver (*.dbf)};DBQ=C:\temp\"
Using cn As New Odbc.OdbcConnection(connectionString)
cn.Open()
If Not System.IO.File.Exists("C:\Temp\books.dbf") Then
Using cmd As New Odbc.OdbcCommand("CREATE TABLE BOOKS (title char(50))", cn)
cmd.ExecuteNonQuery()
End Using
End If
Using cmd As New Odbc.OdbcCommand("INSERT INTO BOOKS (title) VALUES('The Story of Bill')", cn)
cmd.ExecuteNonQuery()
End Using
cn.Close()
End Using
Console.Write("done")
Console.ReadKey()
End Sub
模块结束
我有如下要求:点击网页上的 link 按钮,我必须从 SQL Server 2016 数据库中获取一些记录并将它们转换为 dBaseIV 格式( .env, .ad1, .ad2, .veh) 文件并在最终用户可以单独下载文件的页面上显示 download/save 作为弹出窗口。
如有任何线索,我们将不胜感激。
dBaseIV files expected on click of link button
这就像 90 年代的要求 - 很多来自记忆......
这是一个 VS 2017 控制台应用程序...,创建一个名为 bill 的 DBaseIV 文件并插入一条记录,当然不包括创建、读取等逻辑 - 同样
- System.IO.File.Exists 在 64 位系统上的可靠性值得怀疑 - 其他人可能有更好的解决方案
- 我不使用 IIS - 所以不知道如何在那里设置下载
and - I 运行 这在 Dell Windows 10 机器上,dBaseIV 驱动程序存在于 ODBC
模块模块 1
Sub Main() Dim connectionString As String = "Driver={Microsoft dBase Driver (*.dbf)};DBQ=C:\temp\" Using cn As New Odbc.OdbcConnection(connectionString) cn.Open() If Not System.IO.File.Exists("C:\Temp\books.dbf") Then Using cmd As New Odbc.OdbcCommand("CREATE TABLE BOOKS (title char(50))", cn) cmd.ExecuteNonQuery() End Using End If Using cmd As New Odbc.OdbcCommand("INSERT INTO BOOKS (title) VALUES('The Story of Bill')", cn) cmd.ExecuteNonQuery() End Using cn.Close() End Using Console.Write("done") Console.ReadKey() End Sub
模块结束