Kategori arşivi: Visual Studio .net vb c# asp

c# ta uygulama açık ise ikinci bir oturum açılmasını engelleme

Yayın tarihi
Cevapla 
        private void Form_Giris_Load(object sender, EventArgs e)
        {   
            if (System.Diagnostics.Process.GetProcessesByName(System.IO.Path.GetFileNameWithoutExtension(System.Reflection.Assembly.GetEntryAssembly().Location)).Count() > 1)
            {
                MessageBox.Show("Program zaten açık....");
                System.Diagnostics.Process.GetCurrentProcess().Kill();
            }
               
        }

Excel vba ile rakam ve harflerden 6 karakterli metin oluşturma

Yayın tarihi
Cevapla

Mac filitrelemede kullanmak için ihityacım olan 000822 serisi mac adeslerinin son 6 karakterini dolduracak dizi serisi.

Private Sub CommandButton1_Click()

Dim dizi(1 To 36) As String

dizi(1) = “0”
dizi(2) = “1”
dizi(3) = “2”
dizi(4) = “3”
dizi(5) = “4”
dizi(6) = “5”
dizi(7) = “6”
dizi(8) = “7”
dizi(9) = “8”
dizi(10) = “9”
dizi(11) = “q”
dizi(12) = “w”
dizi(13) = “e”
dizi(14) = “r”
dizi(15) = “t”
dizi(16) = “y”
dizi(17) = “u”
dizi(18) = “o”
dizi(19) = “p”
dizi(20) = “a”
dizi(21) = “s”
dizi(22) = “d”
dizi(23) = “f”
dizi(24) = “g”
dizi(25) = “h”
dizi(26) = “j”
dizi(27) = “k”
dizi(28) = “l”
dizi(29) = “i”
dizi(30) = “z”
dizi(31) = “x”
dizi(32) = “c”
dizi(33) = “v”
dizi(34) = “b”
dizi(35) = “n”
dizi(36) = “m”

Dim filePath As String
Dim cellValue As String

cellValue = “”
filePath = Application.DefaultFilePath & “\auth.csv”

Open filePath For Output As #2
For q = 1 To UBound(dizi)
For w = 1 To UBound(dizi)
For e = 1 To UBound(dizi)
For r = 1 To UBound(dizi)
For t = 1 To UBound(dizi)
For y = 1 To UBound(dizi)
cellValue = “000822” & dizi(q) & dizi(w) & dizi(e) & dizi(r) & dizi(t) & dizi(y)
Write #2, cellValue
cellValue = “”

Next y
Next t
Next r
Next e
Next w
Next q
Close #2
MsgBox (“Bitti…”)
End Sub

VisualStudio 2008 Smart Device Project SQL bağlantısı DataGrid

Yayın tarihi
Cevapla

Public Class Form3
Dim SqlConnStr As String = “server=192.168.0.144;database=MACELLAN;uid=fdonmez;pwd=123456;”
Dim SqlConn As New System.Data.SqlClient.SqlConnection(SqlConnStr)
Dim kullanici As String

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Focus()
Try
SqlConn.Open()
Catch ex As Exception
MessageBox.Show(ex.Message, “baglantı yok”)

Me.Close()
End Try
If SqlConn.State = 1 Then

Me.Text = “sql bağlandı”
End If

SqlConn.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text <> “” Then
SqlConn.Open()

 

Dim mySelectQuery As String = “SELECT MATERIAL,R.STEXT RENK,B.STEXT BEDEN,STOCKPLACE,BATCHNUM,TOTALSTOCK,QUNIT,WAREHOUSE,SPECIALSTOCK FROM IASINVSTOCK,IASVAROPTIONX B WITH (NOLOCK), IASVAROPTIONX R WITH (NOLOCK) WHERE WAREHOUSE=’400′ AND STOCKPLACE LIKE ‘___%’ AND TOTALSTOCK>0 AND SUBSTRING(MATERIAL,1,6) = ‘” & TextBox1.Text & “‘ AND B.VARIANTKEY=’RB’ AND B.ATTRIBUTEKEY=’01′ AND B.OPTIONKEY=SUBSTRING(VOPTIONS,4,2) AND R.VARIANTKEY=’RB’ AND R.ATTRIBUTEKEY=’02′ AND R.OPTIONKEY=SUBSTRING(VOPTIONS,10,3) ORDER BY R.STEXT,B.STEXT,STOCKPLACE ;”
Dim SqlComm As New System.Data.SqlClient.SqlCommand(mySelectQuery, SqlConn)

Dim reader As System.Data.SqlClient.SqlDataReader
reader = SqlComm.ExecuteReader()
Dim table As New DataTable()
table.Load(reader)
DataGrid1.DataSource = table
SqlConn.Close()
End If
End Sub
End Class