DOSBox

DOSBox is a DOS-emulator that uses the SDL-library which makes DOSBox very easy to port to different platforms. DOSBox has already been ported to many different platforms, such as Windows, BeOS, Linux, MacOS X…

You can “re-live” the good old days with the help of DOSBox, it can run plenty of the old classics that don’t run on your new computer!

DOSBox is totally free of charge and OpenSource.

Check our “Downloads” section for the most recent DOSBox version

I don’t like this application, but I will get used to it.

Command Prompt 64 bit can not access to program 32 bit :(.

Insert and Update Data to DBF with VB.net

Put this script to General > Declarations

Imports System.Data.OleDb

Script :

Dim FileName As String = IO.Path.Combine(gcPath, “asal.dbf”)
If IO.File.Exists(FileName) Then
Dim Builder As New OleDbConnectionStringBuilder With
{
.DataSource = IO.Path.GetDirectoryName(FileName),
.Provider = “Microsoft.Jet.OLEDB.4.0”
}
Builder.Add(“Extended Properties”, “dBase III”)
Using cn As New OleDb.OleDbConnection With {.ConnectionString = Builder.ConnectionString}
Using dscmd As New OleDbCommand With {.Connection = cn}
cn.Open()
If InsUpdt = “Update” Then
dscmd.CommandText = “update ” & IO.Path.GetFileName(FileName) & ” set nm_asal = ‘” + txtNm_Asal.Text + “‘ where kd_asal = ‘” + cboKd_Asal.Text + “‘”
Else
If InsUpdt = “Insert” Then
Dim query As String
query = “Insert Into ” & IO.Path.GetFileName(FileName) & ” (”
Query = Query + “kd_asal,nm_asal,add_user,tgl_add,jam_add”
Query = Query + “) values (‘”
Query = Query + cboKd_Asal.Text + “‘,'”
Query = Query + txtNm_Asal.Text + “‘,'”
Query = Query + MDIParent1.gcUserID + “‘,'”
Query = Query + Format(Now.Date, “yyyy-MM-dd”) + “‘,'”
Query = Query + DateTime.Now.ToString(“HH:mm:ss”) + “‘)”
dscmd.CommandText = query
End If
End If
dscmd.ExecuteNonQuery()
cn.Close()
End Using
End Using
End If

Show Datagridview from DBF

Put this code to General > Declarations .

Imports System.Data.OleDb

Script :

Dim FileName As String = IO.Path.Combine(gcPath, “stock.dbf”)
If IO.File.Exists(FileName) Then
Dim Builder As New OleDbConnectionStringBuilder With
{
.DataSource = IO.Path.GetDirectoryName(FileName),
.Provider = “Microsoft.Jet.OLEDB.4.0”
}
Builder.Add(“Extended Properties”, “dBase III”)
Using cn As New OleDb.OleDbConnection With {.ConnectionString = Builder.ConnectionString}
Using dscmd As New OleDbCommand With {.Connection = cn}
dscmd.CommandText = “SELECT kd_barang,nm_barang FROM ” & IO.Path.GetFileName(FileName)
Dim oDa As New OleDbDataAdapter(dscmd)
Dim dtable As New DataTable()
oDa.Fill(dtable)

stockView = New DataView(dtable)
End Using
End Using
End If

DataGridView1.DataSource = stockView
        DataGridView1.RowHeadersVisible = False
        DataGridView1.Columns(0).HeaderCell.Value = “Kode Barang”
        DataGridView1.Columns(1).HeaderCell.Value = “Nama Barang”