Wednesday, April 11, 2012

Unexpected error number 28 has occurred: Out of stack space


Pesan kesalahan seperti ini dapat terjadi jika sumber daya system kurang mencukupi. Tutup aplikasi-aplikasi yang tidak diperlukan atau lakukan restart komputer.

Jika kesalahan itu terjadi ketika melakuan proses Packaging & Deployment Wizard Visual Basic dimana aplikasi yang dibangun menggunakan Crystal Repor sebagai Reporting Tool, masalah timbul akibat adanya circular dependency pada berkas Crystal Reports. Hal ini terjadi pada CR Versi 8.5.

Untuk mengatasi hal tersebut lakukan langkah-langkah berikut :

Kunjungi


http://support.microsoft.com/?kbid=305558


Atau

Buka file Windows\System32crystl32.dep dengan menggunakan Notepad. Umumnya file ini disembunyikan (hidden).

Ubah baris-baris berikut :
[CRPE32.DLL]
Dest=$(WinSysPath)
Uses1=CRPE32.DLL
Uses2=


Menjadi:
;[CRPE32.DLL]
;Dest=$(WinSysPath)
;Uses1=Crpe32.dll
;Uses2=




Simpan kembali perubahan.

Selengkapnya......

Friday, November 11, 2011

Monday, June 20, 2011

Mengambil Nilai Cell Pada Datagrid VB .NET

Untuk mengambil nilai atau teks pada cell dari sebuah DataGrid View gunakan perintah berikut:

Dim vFileNm As String = myGridView.Item(myGridView.Column.Index, myGridView.CurrentRow.Index).Value

Selengkapnya......

Script VB .NET untuk Meng-Copy Berkas (File)

Untuk dapat menjalankan script VB.NET yang akan digunakan untuk menyalin/meng-copy berkas membutuhkan File object System.IO.File yang harus disertakan dengan perintah:

Imports.System.IO.File


Contoh script yang digunakan untuk menyalin berkas:

Dim FSumber As String
Dim FTarget As String
FSumber = "C:\Data\Form01.Doc"
FTarget = " C:\Data\Form01Rev.Doc "
If Exists(FSumber ) = True Then
Copy(FSumber , FTarget)
MsgBox("Berkas Berhasil DiSalin")
End If


Untuk mengantisipasi kesalahan karena tidak ada nama berkas yang akan disalin, digunakan perintah:

If Exists(FileToCopy) = True Then

Jika berkas yang dimaksud ada, maka akan dilanjutkan dengan perintah:

Copy(FileToCopy, NewCopy)

Selengkapnya......

Friday, June 17, 2011

Mengisi Item ComboBox di Gridview

Untuk mengisi item pada ComboBox yang merupakan bagian dari GridView dapat dilakukan dengan memberikan perintah seperti ini :

Private Sub frmIsolationAct_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cboCol1 As DataGridViewComboBoxColumn
cboCol1 = DataGridView1.Columns.Item(0)
cboCol1.Items.Add("Item1")
cboCol1.Items.Add("Item2")
End Sub

Selengkapnya......