.NET (Core and Framework)

Imports System
Imports System.Runtime.InteropServices
Imports System.Text

Namespace Test
	Class Program
		<DllImport("kernel32.dll", CharSet := CharSet.Auto)> _
		Public Shared Function GetShortPathName( _
			<MarshalAs(UnmanagedType.LPTStr)> path As String, _
			<MarshalAs(UnmanagedType.LPTStr)> shortPath As StringBuilder, _
			shortPathLength As Integer _
			) As Integer
		End Function

		Public Shared Sub Main()
			Dim shortPath As New StringBuilder(255)
			GetShortPathName( _
				"E:\My Temp\ResourseProvider\sql.txt", _
				shortPath, _
				shortPath.Capacity)
			Console.WriteLine(shortPath.ToString())
			Console.ReadKey()
		End Sub
	End Class
End Namespace

I are Troll

bisharbn wrote:

Please see ths

void FillData()
{
    // 1
    // Open connection
    using (SqlConnection c = new SqlConnection(DataConnectionString))
    {
        c.Open();
        // 2
        // Create new DataAdapter
        using (SqlDataAdapter a = new SqlDataAdapter("SELECT * FROM phoneBookTable", c))
        {
            // 3
            // Use DataAdapter to fill DataTable
            DataTable t = new DataTable();
            a.Fill(t);

            // 4
            // Render data onto the screen
            // dataGridView1.DataSource = t; // <-- From your designer
        }
    }
}

Imports System.Data.SqlClient
Public Class Form2

    Dim con As New SqlConnection

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            con.ConnectionString = "Data Source=.\SQLEXPRESS;" + _
                                    "AttachDbFilename=|DataDirectory|\Database1.mdf;" + _
                                    "Integrated Security=True;User Instance=True"
            con.Open()
            con.Close()

            Dim da As New SqlDataAdapter
            Dim dt As New DataTable
            Dim ds As New DataSet

            ds.Tables.Add(dt)
            con.Open()
            da = New SqlDataAdapter("SELECT * FROM phoneBookTable", con)
            da.Fill(dt)
            con.Close()


            Dim newRows As DataRow = dt.NewRow
            With newRows
                .Item(0) = "2"
            End With
            dt.Rows.Add(newRows)

            con.Open()
            Dim cb As New SqlCommandBuilder(da)
            da.Update(dt)
            con.Close()

            Dim newRows2 As DataRow = dt.NewRow
            With newRows2
                .Item(0) = "3"
            End With
            dt.Rows.Add(newRows2)

            con.Open()
            cb = New SqlCommandBuilder(da)
            da.Update(dt)
            con.Close()

            DataGridView1.DataSource = dt.DefaultView

        Catch ex As Exception
            MsgBox(ex.ToString)
            con.Close()
        End Try

       

    End Sub
End Class