其实你要的东西就在dm程序员手册,第八章 常用开发工具及其常用控件使用
里面做了详细的介绍,对照其它数据库,也就是连接串不一样,其它的用法
都是一致的,以下摘自dm程序员手册,希望对你有所帮助
8.5.4 应用举例
基本例程
ODBC.Net
C#:
using System;
namespace ConCsDmOdbc
{
///
/// Summary description for ConCsOdbc.
///
public class ConCsOdbc
{
public ConCsOdbc()
{
//
// TODO: Add constructor logic here
//
}
///
/// The main entry point for the application.
///
[STAThread]
//Main为入口函数
static void Main(string[] args)
{
//
// TODO: Add code to start application here
//
//Driver={DM ODBC Driver}; Server=localhost; Database=SYSTEM; UID=SYSDBA; PWD=SYSDBA;
//定义连接对象cnn
System.Data.Odbc.OdbcConnection cnn = new System.Data.Odbc.OdbcConnection();
//配置连接串
cnn.ConnectionString = "Driver={DM ODBC Driver}; Server=localhost; Database=SYSTEM; UID=SYSDBA; PWD=SYSDBA;";
//调用Open函数打开连接
cnn.Open();
//定义语句对象cmd
System.Data.Odbc.OdbcCommand cmd = new System.Data.Odbc.OdbcCommand();
//配置语句对象
cmd.Connection = cnn;
cmd.CommandText = "select * from 厂商登记";
//定义,赋值结果对象dr
System.Data.Odbc.OdbcDataReader dr = cmd.ExecuteReader();
//遍历结果对象,显示查询结果
while (dr.Read())
{
Console.WriteLine(dr.GetValue(0) +"\t"+ dr.GetValue(1));
}
//关闭结果对象
dr.Close();
//关闭连接
cnn.Close();
Console.Write("End");
Console.ReadLine();
}
}
}
VB.Net:
Module ConVBOdbc
'Main为入口函数
Sub Main()
'定义连接对象cnn
Dim cnn As System.Data.Odbc.OdbcConnection = New System.Data.Odbc.OdbcConnection
'配置连接串
cnn.ConnectionString ="Driver={DM ODBC Driver}; Server=localhost; Database=SYSTEM; UID=SYSDBA; PWD=SYSDBA;"
cnn.Open()
'定义语句对象cmd
Dim cmd As System.Data.Odbc.OdbcCommand = New System.Data.Odbc.OdbcCommand
'配置语句对象
cmd.Connection = cnn
cmd.CommandText = "select * from 厂商登记"
Dim dr As System.Data.Odbc.OdbcDataReader = cmd.ExecuteReader
'遍历结果对象,显示查询结果
While dr.Read
Console.WriteLine(dr.GetValue(0) + dr.GetValue(1))
End While
'关闭结果对象
dr.Close()
'关闭连接
cnn.Close()
Console.Write("End")
Console.ReadLine()
End Sub
End Module
OleDb:
C#:
using System;
namespace ConCsDmOledb
{
///
/// Summary description for ConCsOleDb.
///
public class ConCsOleDb
{
public ConCsOleDb()
{
//
// TODO: Add constructor logic here
//
}
[STAThread]
//Main为入口函数
static void Main(string[] args)
{
//
// TODO: Add code to start application here
//
//Provider=DMOLEDB.1; Data Source=LOCALHOST; Initial Catalog=SYSTEM; User ID=SYSDBA; Password=SYSDBA;
//定义连接对象cnn
System.Data.OleDb.OleDbConnectioncnn=new System.Data.OleDb.OleDbConnection();
//配置连接串
cnn.ConnectionString = "Provider=DMOLEDB.1; Data Source=LOCALHOST; Initial Catalog=SYSTEM; User ID=SYSDBA; Password=SYSDBA; ";
//调用Open函数打开连接
cnn.Open();
//定义语句对象cmd
System.Data.OleDb.OleDbCommand cmd = new System.Data.OleDb.OleDbCommand();
//配置语句对象
cmd.Connection = cnn;
cmd.CommandText = "select * from 厂商登记";
//定义,赋值结果对象dr
System.Data.OleDb.OleDbDataReader dr = cmd.ExecuteReader();
//遍历结果对象,显示查询结果
while (dr.Read())
{
Console.WriteLine(dr.GetValue(0) +"\t"+ dr.GetValue(1));
}
//关闭结果对象
dr.Close();
//关闭连接
cnn.Close();
Console.Write("End");
Console.ReadLine();
}
}
}
VB.Net:
Module ConVbOleDb
'Main为入口函数
Sub Main()
'定义连接对象cnn
Dim cnn As System.Data.OleDb.OleDbConnection= New System.Data.OleDb.OleDbConnection
'配置连接串
cnn.ConnectionString = "Provider=DMOLEDB.1; Data Source=LOCALHOST; Initial Catalog=SYSTEM; User ID=SYSDBA; Password=SYSDBA;"
'调用Open函数打开连接
cnn.Open()
'定义语句对象cmd
Dim cmd As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand
'配置语句对象
cmd.Connection = cnn
cmd.CommandText = "select * from 厂商登记"
'定义,赋值结果对象dr
Dim dr As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader
'遍历结果对象,显示查询结果
While dr.Read
Console.WriteLine(dr.GetValue(0) + dr.GetValue(1))
End While
'关闭结果对象
dr.Close()
'关闭连接
cnn.Close()
Console.Write("End")
Console.ReadLine()
End Sub
End Module
[Last edited by myth on 2006-6-26 at 01:47 PM]