Tipe Field Pecahan

Tipe data pecahan di mysql untuk supaya bisa menampung pecahan waktu create harus:
contoh :
CREATE TABLE IF NOT EXISTS `mytable` (
`value1` float(2,1) NOT NULL default '0.0'
) ENGINE=MyISAM DEFAULT CHARSET=latin1 ;

INSERT INTO `mytable` VALUES (16.7);

unable to start debugging on the web server because Integrated windows

Unable to start debugging on the web server. Debugging failed because integrated Windows authentication is not enabled. Please see Help for assistance.
Posted by admin 14 November, 2008
Error : “Unable to start debugging on the web server. Debugging failed because integrated Windows authentication is not enabled. Please see Help for assistance.”
Fix : This error usually comes when you are using asp.net with IIS and try to debug the application. To fix it, you need to goto IIS - > Select your Virtual Directory -> Right-Click -> Properties -> Directory Security Tab -> Press the top most Edit button -> In the next form Check the lower most check box saying “Integrated Windows Authentication” and it will work.

Mengcopy Struktu serta isi tabel

untuk mengcopy struktur dan isi tabel. tetapi tidak bisa mengcopy key dan relasi

bentuk : select * into newtabel from oldTabel

Meng Attach dan Detach Database Using Query

untuk meng attach Database :

EXEC sp_attach_db
@dbname=N 'Namdatabse', @FileName1=N 'pathnya\namadatabase.mdf',
@Filename2= N 'Pathnya\Namadatabase.ldf'

sedangkan untuk Detach

EXEC sp_Detach_Db 'nama_database'

Mengubah Font, PaperSize,Orientation pada crystal report

Menggunakan VB.net

Mungkin banyak teman-teman yang belum tau bagaiman mengubah papersize, font, Orientation pada crystal report lewat Vb.net

Imports CrystalDecisions.CrystalReports
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.CrystalReports.Engine.Section
Imports CrystalDecisions.CrystalReports.Engine.FieldObject
Imports CrystalDecisions.CrystalReports.Engine.TextObject
Imports CrystalDecisions.Shared

Public Class Cetakan
Private rpt As Engine.ReportDocument
Private sub Cetak

Public Structure CetakKePrinter
Public namaReport As String
Public namaDatabase As String
Public namaServerDb As String
Public namaUserId As String
Public namaPassw As String
End Structure
rpt=new Engine.ReportDokumen

Dim cr As CetakKePrinter
cr.namaDatabase = data_base
cr.namaPassw = passWord
cr.namaServerDb = sErver
cr.namaUserId = "sa"
cr.namaReport = App_Path() & "/" & Me.NamaLaporan & ".rpt"
rpt.Load(cr.namaReport, OpenReportMethod.OpenReportByDefault)


Dim header As Single = 215.9 - UkuranBuku.Text
Dim Top As Integer = CInt((1440 / 25.4 * header) + (1440 / 25.4 * tinggi.Text))
Dim Left As Integer = CInt(1440 / 25.4 * kiri.Text)


rpt.PrintOptions.PaperSize = PaperSize.PaperLegal
rpt.PrintOptions.PaperOrientation = PaperOrientation.Landscape
rpt.PrintOptions.ApplyPageMargins(New CrystalDecisions.Shared.PageMargins(Left, Top, 0, 0))


Dim Huruf As New Font(Me.TxtHuruf.Text, Me.txtukuranhuruf.Text)
'pengubahan Section
Dim mySection As Section = rpt.ReportDefinition.Sections.Item("Section3")
Dim Teks As FieldObject
For i As Integer = 0 To MySection.ReportObject.Item.Count-1
Teks = mySection.ReportObjects.Item(i)
Teks.ApplyFont(Huruf)
Next
End Select
crp.ReportSource = rpt ' crp adalah Crystal Report Dokumen
crp.RefreshReport()

Setting Instalasi Sql Server 2005 Express

1. Configuration Manager2. Network Config - Protocol SQL Express3. IP Address - Enabled Yes4. Browser harus otomatis hidup
Membuat SQL Dual Mode: Windows dan SQL Server AuthenticationHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server\MSSQL.1\MSSQL.ServerLogin Mode = 2
Surface ConfigurationRemoteConnection = Using TCP/IP
Jika Database ReadOnly1. Buka sql server configuration tools ->Sql server configuration manager -> clicksql server service -> click kanan sql server disebelah kanan -> pilih properties-> pada tab Logon ->opsi pilih built in -> dan pilih local system -> atach lagi database tsb2. maka cek diformat apa database disimpan Di NTFS atau Fat32 jika di NTFS maka set semua user menjadi Full Control

Berpindah Kolom pada baris yang sama di datagridview

Public Class Form1

Public IdxRow As SByte
Public IdxCol As SByte

Sub lanjut()
IdxRow = Datagridview1.CurrentCell.RowIndex - 1
IdxCol = Datagridview1.CurrentCell.ColumnIndex
End Sub

Private Sub dg_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dg.CellEnter
lanjut()
End Sub

Private Sub Datagridview1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dg.KeyUp
If e.KeyCode = Keys.Enter And posCol <>
Datagridview1.CurrentCell = DataGridview1(IdxCol + 1, IdxRow)
Else
Datagridview1.CurrentCell = Datagridview1(0, IdxRow + 1)
End If
End Sub

End Class