我正在尝试使用 SQL 构建一个 .NET Web 应用程序来查询 AS400 数据库。这是我第一次接触 AS400。
我必须在我的机器（或 AS400 服务器）上安装什么才能连接？ （IBM iSeries Access for Windows ??）
连接字符串的组成部分是什么？
在哪里可以找到使用 SQL 命令构建数据访问层的示例代码？
谢谢。
【问题讨论】：
标签： c# .net asp.net sql ibm-midrange
您需要 AS400 .Net 数据提供程序。在这里检查： https://www-01.ibm.com/support/docview.wss?uid=isg3T1027163
对于连接字符串示例，请在此处查看： https://www.connectionstrings.com/as-400/
此外，请查看红皮书以获取代码示例并开始使用。 http://www.redbooks.ibm.com/redbooks/pdfs/sg246440.pdf
【讨论】：
以下是我为解决问题所做的。
安装了IBM i Access for Windows。不是免费的
在项目中引用了以下dll
数据访问
using (iDB2Command command = new iDB2Command())
{
command.Connection = (iDB2Connection)_connection;
command.CommandType = CommandType.Text;
command.Parameters.AddWithValue(Constants.ParamInterfaceTransactionNo, 1);
command.CommandText = dynamicInsertString;
command.ExecuteScalar();
}
连接字符串
<add name="InterfaceConnection"
connectionString="Data Source=myserver.mycompany.com;User ID=idbname;Password=mypassxxx;
Default Collection=ASIPTA;Naming=System"/>
更新
可能不支持 Windows 8.1 之后的操作系统上的 Windows 访问。试用替代产品 IBM i Access Client Solutions
【讨论】：
如其他答案所述，如果您已经安装了 IBM i Access 客户端，则可以使用 IBM.Data.DB2.iSeries 包。
如果您没有 IBM i Access 软件，您可以利用 JTOpen 并使用 Java 驱动程序。您需要 nuget 包 JT400.78，它将拉入 IKVM 运行时。
在我的例子中，我需要在 AS400 上查询一个 DB2 数据库并输出一个 DataTable。我发现了一些提示和小的代码 sn-ps，但并不全面，所以我想分享我能够构建的内容，以防它帮助其他人：
using com.ibm.as400.access;
using java.sql;
var sql = "SELECT * FROM FOO WITH UR";
DriverManager.registerDriver(new com.ibm.as400.access.AS400JDBCDriver());
Connection conn = DriverManager.getConnection(
"jdbc:as400:" + ServerName + ";prompt=false", UserName, Password);
Statement stmt = conn.createStatement();
ResultSet rs = stmt.executeQuery(sql);
ResultSetMetaData md = rs.getMetaData();
int ct = md.getColumnCount();
DataTable dt = new DataTable();
for(int i=1; i<=ct; i++)
dt.Columns.Add(md.getColumnName(i));
while (rs.next())
{
var dr = dt.NewRow();
for (int i = 1; i <= ct; i++)
dr[i - 1] = rs.getObject(i);
dt.Rows.Add(dr);
}
rs.close();
从 RecordSet 到 DataTable 的转换有点笨拙，让我回想起我的 VBScript 日子。性能可能并不快，但它确实有效。
【讨论】：
非常古老的问题 - 但这仍然是相关的。我需要使用 .NET 查询我们的 AS/400，但以上答案均无效，因此我最终使用 OleDb 创建了自己的方法：
public DataSet query_iseries(string datasource, string query, string[] parameterName, string[] parameterValue)
{
try
{
// Open a new stream connection to the iSeries
using (var iseries_connection = new OleDbConnection(datasource))
{
// Create a new command
OleDbCommand command = new OleDbCommand(query, iseries_connection);
// Bind parameters to command query
if (parameterName.Count() >= 1)
{
for (int i = 0; i < parameterName.Count(); i++)
{
command.Parameters.AddWithValue("@" + parameterName[i], parameterValue[i]);
}
}
// Open the connection
iseries_connection.Open();
// Create a DataSet to hold the data
DataSet iseries_data = new DataSet();
// Create a data adapter to hold results of the executed command
using (OleDbDataAdapter data_adapter = new OleDbDataAdapter(command))
{
// Fill the data set with the results of the data adapter
data_adapter.Fill(iseries_data);
}
return iseries_data;
}
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
return null;
}
}
你会像这样使用它：
DataSet results = query_iseries("YOUR DATA SOURCE", "YOUR SQL QUERY", new string[] { "param_one", "param_two" }, new string[] { "param_one_value", "param_two_value"});
它返回返回结果的DataSet。如果有人需要/想要一种在 IBM AS/400 中插入/更新值的方法，请发表评论，我会分享...
【讨论】：
using System.Data.OleDb 并使用 OleDb 格式发送 SQL 查询。
我正在使用这段代码，对我来说工作得很好！
Try
Dim sqltxt As String = "SELECT * FROM mplib.pfcarfib where LOTEF=" & My.Settings.loteproceso
dt1 = New DataTable
Dim ConAS400 As New OleDb.OleDbConnection
ConAS400.ConnectionString = "Provider=IBMDA400;" & _
"Data Source=192.168.100.100;" & _
"User ID=" & My.Settings.usuario & ";" & _
"Password=" & My.Settings.contrasena
Dim CmdAS400 As New OleDb.OleDbCommand(sqltxt, ConAS400)
Dim sqlAS400 As New OleDb.OleDbDataAdapter
sqlAS400.SelectCommand = CmdAS400
ConAS400.Open()
sqlAS400.Fill(dt1)
grid_detalle.DataSource = dt1
grid_detalle.DataMember = dt1.TableName
Catch ex As Exception
DevExpress.XtraEditors.XtraMessageBox.Show("Comunicación Con El AS400 No Establecida, Notifique a Informatica..", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.Close()
End Try
【讨论】：
我最近在 NuGet 上发现了 ADO.Net 驱动程序。我的 PC 上安装了 iSeries 客户端访问，所以我不能说它是否可以独立运行，但它确实可以连接。唯一的问题是我实际上看不到任何表格或过程。我认为可能有一个模式或库或者我还没有深入了解的东西。如果我找到答案，我会发布。同时，我仍然可以使用 NuGet 适配器访问服务器并编写我的大部分代码。
【讨论】：
查看http://asna.com/us/，因为他们有一些使用 SQL 和 AS400 的开发工具。
【讨论】：