2
Answers

How can we share a perticular message via social media?

Vinod Sharma

Vinod Sharma

7y
217
1
Is there any solutions that I want to share my code on social media.
 
Just like :
Hi friends use my promocode $*$*$* and get may discounts from here.
 
if I click any social icon then message will be share there.
Please share the solution as soon as possible. 
Answers (2)
0
Khan Abrar Ahmed

Khan Abrar Ahmed

NA 5.8k 199.9k 10y
Hi you can try this code
private void Form1_Load(object sender, EventArgs e)
{
OleDbConnection connect = new OleDbConnection(@"Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\Anas\Dropbox\C# Projects\2.Database\ClOsODb.accdb; Persist Security Info=False");
connect.Open();
string cmd = "select * from Course Number and Name";
OleDbDataAdapter adapter = new OleDbDataAdapter(new OleDbCommand(strSql, connect));
 DataSet ds = new DataSet();
adapter.Fill(ds);

course_Number_and_NameComboBox.DataSource = ds.Tables[0];
course_Number_and_NameComboBox.DisplayMember = "Course Number and Name";
course_Number_and_NameComboBox.ValueMember = "ID";
connect.Close();
}
0
Anas Tasadduq

Anas Tasadduq

NA 3 4.8k 10y
But I am using C#, not VB. Sorry I did not mention it in the question.
0
Khan Abrar Ahmed

Khan Abrar Ahmed

NA 5.8k 199.9k 10y
Hi you can try below code
Dim cn As New OleDbConnection("provider=Provider=Microsoft.ACE.OLEDB.12.0;data source=C:\Users\Anas\Dropbox\C# Projects\2.Database\ClOsODb.accdb")
   Dim da As New OleDbDataAdapter()
   Dim dt As New DataTable()
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      cn.Open()
      da.SelectCommand = New OleDbCommand("select * from [course Number and Name]", cn)
      da.Fill(dt)
 
      ComboBox1.DataSource = dt
      ComboBox1.DisplayMember = "Course Number and Name";
      ComboBox1.ValueMember = "ID";
 
      ' or this way
      ComboBox1.Items.Clear()
      Dim r As DataRow
      For Each r In dt.Rows
         ComboBox1.Items.Add(r(1).ToString)
      Next
      cn.Close()
   End Sub