VB.NET连接sap VBNET教程

vb.net的数据库连接

1·绑定数据源来进行连接

让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:域名申请、网络空间、营销软件、网站建设、勐海网站维护、网站推广。

2.用代码连接

先到数据库建立一个数据库和相应的表

连接数据库的代码:

Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

try

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

Return True

Catch ex As Exception

MsgBox(ex.ToString)

Return False

End Try

登录代码:Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

sqlstr = "Select * From Amd Where AmdName='" TextBox1.Text "' And AmdPwd = '" TextBox2.Text "'"

Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)

Dim dr As SqlClient.SqlDataReader

dr = sqlcmd.ExecuteReader

If dr.Read = True Then '判断一条记录为真

kf.Show() '显示下个窗体

Me.Hide() ’隐藏当前窗体

Else

MessageBox.Show("输入信息有误!", "提示")

TextBox1.Text = ""

TextBox2.Text = ""

End If

如何使用VS003 +SAP.net Connector 调用RFC函数

无具体的错!我使用的是VB.NET,然后我在页面放了两个文本框,一个是用来输入SO NUMBER,一个是输入日期来查询。但是这两个参数无法传到SAP系统当中。导致无法查询结果,返回值为0.不知版主是可以给一个具体的例子呢,感谢!!

VB.NET连SQL时出错!sa登录失败,未与信任的SQL Server相关联是怎么回事?

1.先用WINDOWS方式登录进去~

2.安全性--》登录名--》sa---右键属性--》把密码改成sa,把强制密码策略前的√去掉~先别点确定~点左边的“状态”将登录

改为启用,确定。

3.在对象资源管理器里面的最根部的目录(就是.\SQLEXPRESS(.....)那)右键属性,安全性--》服务器身份验证选择SQL

Sever和WINDOWS身份验证模式。确定~

4.在开始程序中选择SQL

2005-配置工具-》外围用用配置器,点开下面的服务和连接的外围应用配置器,选择左边的

远程连接,选择本地连接和远程连接

以及同时使用两项。确定,OK啦!

5.如果还不行,重启下电脑~

6.连接字符串这样写static

string

connString

=

"Data

Source=.\\SQLEXPRESS;Initial

Catalog=meifa;user

ID=sa;Pwd=sa";

注意两个反斜杠哦!

终于写完了好累啊

昨天我就是这样连接上的,希望对你有用~~~~

vs.net 2005 /2008 如何连接调用sap的rfc,需要全部的配置过程和代码。

using SAPFunctionsOCX;

using SAPLogonCtrl;

using System.Data;

using SAPTableFactoryCtrl;

using Microsoft.Adapter.SAP;

using VbSapConnect;

public partial class MainWindow : Window

{

public MainWindow()

{

InitializeComponent();

}

public void button1_Click(object sender, RoutedEventArgs e)

{

SAPLogonCtrl.SAPLogonControlClass sapLogon = new SAPLogonCtrl.SAPLogonControlClass();

sapLogon.User = textBox2.Text.Trim();

sapLogon.Password = textBox3.Text.Trim();

sapLogon.Client = textBox1.Text.Trim();

sapLogon.ApplicationServer = textBox4.Text.Trim();

sapLogon.Language = textBox5.Text.Trim();

sapLogon.SystemNumber = int.Parse(textBox6.Text.Trim());

SAPLogonCtrl.Connection sapConn = (SAPLogonCtrl.Connection)sapLogon.NewConnection();

if (!sapConn.Logon(0, true))

{

this.label1.Content = "连接失败";

}

else if (sapConn.Logon(0, true))

{

this.label1.Content = "连接成功";

SAPFunctionsOCX.SAPFunctionsClass func = new SAPFunctionsOCX.SAPFunctionsClass();//创建SAPFunctionsOCX.SAPFunctionsClass的实例func ,并设置其需要使用的Connection

func.Connection = sapConn;

SAPFunctionsOCX.IFunction ifunc = (SAPFunctionsOCX.IFunction)func.Add("BAPI_SALESORDER_CREATEFROMDAT2");//使用func的Add方法添加需要调用的function module的名称

SAPFunctionsOCX.IParameter salesdocumentin = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("SALESDOCUMENTIN");//使用ifunc的get_Exports方法获取function module中的输入参数

salesdocumentin.Value = textBox7.Text.Trim();

SAPFunctionsOCX.IStructure order_header_in = (SAPFunctionsOCX.IStructure)ifunc.get_Exports("ORDER_HEADER_IN");

order_header_in.set_Value("DOC_TYPE", textBox8.Text.Trim()); //销售凭证类型

order_header_in.set_Value("SALES_ORG", textBox9.Text.Trim()); //销售机构

order_header_in.set_Value("DISTR_CHAN", textBox10.Text.Trim()); //分销渠道

order_header_in.set_Value("DIVISION", textBox11.Text.Trim()); //生产线

order_header_in.set_Value("SALES_GRP", textBox12.Text.Trim()); //销售组

order_header_in.set_Value("SALES_OFF", textBox13.Text.Trim()); //销售办事处

order_header_in.set_Value("PURCH_NO_C", textBox15.Text.Trim()); //客户采购订单编号

order_header_in.set_Value("CUST_GRP1", textBox16.Text.Trim()); //客户组 1

order_header_in.set_Value("ORD_REASON", textBox17.Text.Trim()); //订购原因( 业务原因 )

SAPFunctionsOCX.IStructure order_header_in = (SAPFunctionsOCX.IStructure)ifunc.get_Exports("ORDER_HEADER_IN");

order_header_in.set_Value("DOC_TYPE", textBox8.Text.Trim()); //销售凭证类型

order_header_in.set_Value("SALES_ORG", textBox9.Text.Trim()); //销售机构

order_header_in.set_Value("DISTR_CHAN", textBox10.Text.Trim()); //分销渠道

order_header_in.set_Value("DIVISION", textBox11.Text.Trim()); //生产线

order_header_in.set_Value("SALES_GRP", textBox12.Text.Trim()); //销售组

order_header_in.set_Value("SALES_OFF", textBox13.Text.Trim()); //销售办事处

order_header_in.set_Value("PURCH_NO_C", textBox15.Text.Trim()); //客户采购订单编号

order_header_in.set_Value("CUST_GRP1", textBox16.Text.Trim()); //客户组 1

order_header_in.set_Value("ORD_REASON", textBox17.Text.Trim()); //订购原因( 业务原因 )

SAPFunctionsOCX.IStructure order_header_in = (SAPFunctionsOCX.IStructure)ifunc.get_Exports("ORDER_HEADER_IN");

order_header_in.set_Value("DOC_TYPE", textBox8.Text.Trim()); //销售凭证类型

order_header_in.set_Value("SALES_ORG", textBox9.Text.Trim()); //销售机构

order_header_in.set_Value("DISTR_CHAN", textBox10.Text.Trim()); //分销渠道

order_header_in.set_Value("DIVISION", textBox11.Text.Trim()); //生产线

order_header_in.set_Value("SALES_GRP", textBox12.Text.Trim()); //销售组

order_header_in.set_Value("SALES_OFF", textBox13.Text.Trim()); //销售办事处

order_header_in.set_Value("PURCH_NO_C", textBox15.Text.Trim()); //客户采购订单编号

order_header_in.set_Value("CUST_GRP1", textBox16.Text.Trim()); //客户组 1

order_header_in.set_Value("ORD_REASON", textBox17.Text.Trim()); //订购原因( 业务原因 )

省略。。。。。。。。。。。。。。

ifunc.Call();//执行调用

sapConn.Logoff();

}


分享名称:VB.NET连接sap VBNET教程
标题网址:http://scyanting.com/article/hgppid.html