Get RepositoryItemLookUpEdit Row Value

With RepositoryItemLookUpEditSearch

     MsgBox(.GetDataSourceValue("ID", .GetDataSourceRowIndex("Nama", _

     txtSearch.EditValue)).ToString)

End With

Replace string on VB.NET

=== Program that replaces (VB.NET) ===

 

Module Module1

    Sub Main()

        ' Assign string to reference.

        Dim value1 As String = "Darth Vader is frightening."

        Console.WriteLine(value1)

 

        ' Replace word with another word.

        Dim value2 As String = value1.Replace("frightening", "silly")

        Console.WriteLine(value2)

    End Sub

End Module

 

=== Output of the program ===

 

Darth Vader is frightening.

Darth Vader is silly.

Sumber : http://dotnetperls.com/replace-vbnet

Dynamic Stored Procedure : SQL Server 2005

ALTER PROCEDURE mstPelangganIJOINmstPelangganKendaraan_SELECT

      @COLUMN                 NVARCHAR(255)

      ,@FIELD                 NVARCHAR(50)

      ,@CRITERIA        NVARCHAR(50)

AS

BEGIN TRY

      SET NOCOUNT ON;

     

      /* PROCEDURE BODY */

      DECLARE @SQLSTRING                  NVARCHAR(4000)

      DECLARE @PARAMDEFINITION      NVARCHAR(4000)

      SET @SQLSTRING = 'SELECT ' + @COLUMN + '

                        FROM

                            mstPelanggan            AS A INNER JOIN

                            mstPelangganKendaraan   AS B ON

                            a.ID = b.pelangganID '

      IF @CRITERIA = ''

            BEGIN

                  SET @SQLSTRING = @SQLSTRING

            END

      ELSE

            BEGIN

                  SET @SQLSTRING = @SQLSTRING + ' WHERE ' + @FIELD + ' LIKE ''%' + @CRITERIA + '%'' '

            END

      -- =================================================================

      -- PREPARE FOR EXECUTE

      -- =================================================================

      SET @PARAMDEFINITION  = '

            @COLUMN                 NVARCHAR(50)

            ,@FIELD                 NVARCHAR(50)

            ,@CRITERIA        NVARCHAR(50)'

      EXECUTE sp_executesql @SQLSTRING,@PARAMDEFINITION,

            @COLUMN

            ,@FIELD

            ,@CRITERIA;

END TRY

BEGIN CATCH

      SELECT ERROR_NUMBER()   AS ErrNumber

      ,ERROR_SEVERITY()       AS ErrSeverity

      ,ERROR_STATE()          AS ErrorState

      ,ERROR_PROCEDURE()      AS ErrorProcedure

      ,ERROR_LINE()           AS ErrorLine

      ,ERROR_MESSAGE() AS ErrorMessage;

END CATCH

DevExpress set LookUpEdit Repository

Berikut adalah syntax yang digunakan pada component DevExpress data Repository LookUpEdit

Dim dsNomorRangka As New DataSet

Dim daNomorRangka As SqlDataAdapter = New SqlDataAdapter("crmFollowUpSalesDelivery_lstNomorRangka", SQLConnection)

With daNomorRangka

.SelectCommand.CommandType = CommandType.StoredProcedure

      .SelectCommand.Parameters.Clear()

      .SelectCommand.Parameters.Add("@CabangID", SqlDbType.NVarChar, 2).Value = "21"

      .SelectCommand.Parameters.Add("@NomorRangka", SqlDbType.NVarChar, 20).Value = "MHRGD" ' cboNomorRangka.EditValue

End With

daNomorRangka.Fill(dsNomorRangka)

With RepositoryLookupNomorRangka

.DataSource = dsNomorRangka.Tables(0)

      .ValueMember = "NomorRangka"

      .DisplayMember = "NomorRangka"

End With

Lowongan Pekerjaan Honda Desember 2010

Dealer resmi mobil honda membutuhkan karyawan sebagai:

ACCOUNTING SUPERVISOR (AS)

• Pria
• Pendidikan S1 Akuntansi
• Usia maksimal 35 tahun
• pengalaman min. 2 tahun di bidang yang sama

SALES EXECUTIVE (SE)

• Pria/Wanita usia < 28 Tahun
• Memiliki kendaraan sendiri

MANAGEMEN TRAINEE (MT)

• Pria/Wanita usia < 28 Tahun
• Memiliki kendaraan sendiri

Keterangan :
AS :  kirimkan lamaran Anda melalui pos atau ke : recruitment.hondamegatama@gmail.com.

MT / ST : WALKIN INTERVIEW Senin 27 Desember 2010

Honda Megatama

Jl. Raya Kalimalang No. 18 Duren Sawit 

Jakarta Timur 13440

Perbedaan syntax vb6 dan vb.NET

IsNull	IsDBNull
SelStart / SelLength	Textedit1.Select(Start,Length)

 

Lowongan Graphic Designer

LOWONGAN PEKERJAAN DESEMBER 2010
Perusahaan yang bergerak di bidang percetakan & konveksi membutuhkan karyawan dengan kriteria sbb:

• Pria/Wanita:
• Usia < 30 tahun


• mahir CorelDraw & Photoshop (bisa Illustrator & Wilcom nilai plus)


• Rajin

www.passbandung.com Jl. Dr. Sahardjo No. 119A Manggara,tebet Jakarta Selatan 12860

FW: Testing lewat email

Testing lewat email

<!-- more -->

More di sini

Membuat Constraint Pada SQLServer 2005

Kita asumsikan telah terdapat 2 buah tabel yaitu optKuitansi dan optKuitansiDetail, maka berikut adalah Query untuk menambahkan constraint pada optKuitansiDetail