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