السلام عليكم ممكن تحويل كود تالي الي سي شارب دالة قمت بتحويله ومتغيرات
لكن في sqldataadapter كيف اكتب نص اتصال له
كود :
Imports System.Data.SqlClient
Module Module1
Public con As SqlConnection = New SqlConnection("server='" & My.Settings.server & "'; database='" & My.Settings.database & "';integrated security =true ")
Public id, pwd, fullname, usertype As String
Public Function CODE_GENE(TABLENAME, ID_) As Integer
CODE_GENE = 0
Dim DT As New DataTable
Dim DA As New SqlDataAdapter("select *from " & TABLENAME & " ORDER BY " & ID_ & "", Module1.con)
DA.Fill(DT)
If DT.Rows.Count <> 0 Then
Dim I = DT.Rows.Count - 1
CODE_GENE = Val(DT.Rows(I).Item(ID_))
End If
End Function
End Module
(15-11-22, 01:43 PM)ali_ahmed12 كتب : [ -> ]السلام عليكم ممكن تحويل كود تالي الي سي شارب دالة قمت بتحويله ومتغيرات
لكن في sqldataadapter كيف اكتب نص اتصال له
كود :
Imports System.Data.SqlClient
Module Module1
Public con As SqlConnection = New SqlConnection("server='" & My.Settings.server & "'; database='" & My.Settings.database & "';integrated security =true ")
Public id, pwd, fullname, usertype As String
Public Function CODE_GENE(TABLENAME, ID_) As Integer
CODE_GENE = 0
Dim DT As New DataTable
Dim DA As New SqlDataAdapter("select *from " & TABLENAME & " ORDER BY " & ID_ & "", Module1.con)
DA.Fill(DT)
If DT.Rows.Count <> 0 Then
Dim I = DT.Rows.Count - 1
CODE_GENE = Val(DT.Rows(I).Item(ID_))
End If
End Function
End Module
اين كود السي شارب الذي حولته؟
(16-11-22, 12:01 AM)yaser27 كتب : [ -> ] (15-11-22, 09:24 PM)ali_ahmed12 كتب : [ -> ] (15-11-22, 09:11 PM)yaser27 كتب : [ -> ] (15-11-22, 01:43 PM)ali_ahmed12 كتب : [ -> ]السلام عليكم ممكن تحويل كود تالي الي سي شارب دالة قمت بتحويله ومتغيرات
لكن في sqldataadapter كيف اكتب نص اتصال له
كود :
Imports System.Data.SqlClient
Module Module1
Public con As SqlConnection = New SqlConnection("server='" & My.Settings.server & "'; database='" & My.Settings.database & "';integrated security =true ")
Public id, pwd, fullname, usertype As String
Public Function CODE_GENE(TABLENAME, ID_) As Integer
CODE_GENE = 0
Dim DT As New DataTable
Dim DA As New SqlDataAdapter("select *from " & TABLENAME & " ORDER BY " & ID_ & "", Module1.con)
DA.Fill(DT)
If DT.Rows.Count <> 0 Then
Dim I = DT.Rows.Count - 1
CODE_GENE = Val(DT.Rows(I).Item(ID_))
End If
End Function
End Module
اين كود السي شارب الذي حولته؟
كود :
public int CODE_GENE(string TABLE_NAME, string COLUMN_NAME)
{
int CODE = 0;
DataTable DT = new DataTable();
SqlDataAdapter DA = new SqlDataAdapter(String.Format("SELECT {1} FROM {0} ORDER BY {1}", TABLE_NAME, COLUMN_NAME), con);
DA.Fill(DT);
if (DT.Rows.Count > 0)
{
int I = DT.Rows.Count - 1;
CODE = Convert.ToInt32(DT.Rows[I][COLUMN_NAME]);
}
return CODE;
}
كود :
public SqlConnection con = new SqlConnection(String.Format("server={0}; database={1};integrated security =true ", Properties.Settings.Default.server, Properties.Settings.Default.database));
كود adapter ماذا اكتب بدل module.con
(16-11-22, 09:16 PM)ali_ahmed12 كتب : [ -> ] (16-11-22, 12:01 AM)yaser27 كتب : [ -> ] (15-11-22, 09:24 PM)ali_ahmed12 كتب : [ -> ] (15-11-22, 09:11 PM)yaser27 كتب : [ -> ] (15-11-22, 01:43 PM)ali_ahmed12 كتب : [ -> ]السلام عليكم ممكن تحويل كود تالي الي سي شارب دالة قمت بتحويله ومتغيرات
لكن في sqldataadapter كيف اكتب نص اتصال له
كود :
Imports System.Data.SqlClient
Module Module1
Public con As SqlConnection = New SqlConnection("server='" & My.Settings.server & "'; database='" & My.Settings.database & "';integrated security =true ")
Public id, pwd, fullname, usertype As String
Public Function CODE_GENE(TABLENAME, ID_) As Integer
CODE_GENE = 0
Dim DT As New DataTable
Dim DA As New SqlDataAdapter("select *from " & TABLENAME & " ORDER BY " & ID_ & "", Module1.con)
DA.Fill(DT)
If DT.Rows.Count <> 0 Then
Dim I = DT.Rows.Count - 1
CODE_GENE = Val(DT.Rows(I).Item(ID_))
End If
End Function
End Module
اين كود السي شارب الذي حولته؟
كود :
public int CODE_GENE(string TABLE_NAME, string COLUMN_NAME)
{
int CODE = 0;
DataTable DT = new DataTable();
SqlDataAdapter DA = new SqlDataAdapter(String.Format("SELECT {1} FROM {0} ORDER BY {1}", TABLE_NAME, COLUMN_NAME), con);
DA.Fill(DT);
if (DT.Rows.Count > 0)
{
int I = DT.Rows.Count - 1;
CODE = Convert.ToInt32(DT.Rows[I][COLUMN_NAME]);
}
return CODE;
}
كود :
public SqlConnection con = new SqlConnection(String.Format("server={0}; database={1};integrated security =true ", Properties.Settings.Default.server, Properties.Settings.Default.database));
كود adapter ماذا اكتب بدل module.con
يا اخي ما علاقة module
فالاتصال اسمه con فقط كما كتبتها انت في تحويلك