Posts by oussama_1

im assuming your "textbox"s are named textbox1 and textbox2 and so on..

dim wordData as string
wordData = "Login : " & textbox1.text & vbnewline &_
"First Name : " & textbox2.text & vbnewline &_
"Last Name : " & textbox3.text & vbnewline &_
"Password : " & textbox4.text & vbnewline &_
"Email : " & textbox5.text & vbnewline &_
"Content Lang : " & Combobox1.text & vbnewline &_
"interface Lang : " & Combobox2.text

wordapp.Selection.TypeText(wordData)

try this

Imports Microsoft.Office.Interop.Word

wordapp = New Word.Application
worddoc = New Word.Document
    'create word file
worddoc = wordapp.Documents.Add()
worddoc.Activate()
    'save data
wordapp.Selection.TypeText("YOUR DATA")
    'save as
wordapp.Dialogs(WdWordDialog.wdDialogFileSaveAs).Show()
    'close app
worddoc.Close()
wordapp.Quit()
worddoc = Nothing
wordapp = Nothing

place this script on your camera
transform.position = new Vector3(player.transform.x,y,z)

@begginnerdev its Delphi

my code works!
this was the problem

my access file needed some query fixes
thanks PerplexedB for your time

Project - add reference - com - Microsoft access 12.0 object library

Code :

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Connection As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source='" & "YOURPATH\access.accdb" & "';" & "Persist Security Info=False;" & "Jet OLEDB:Database Password=" & ";")

        Dim date1 As New TextBox
        Dim time1 As New TextBox
        Dim s1 As New TextBox
        Dim s2 As New TextBox
        Dim Empid As New TextBox
        Dim InOut As New TextBox
        Dim textfile As New RichTextBox

        textfile.LoadFile("YOUR TEXT FILE PATH.txt", RichTextBoxStreamType.PlainText)

        For Each line In textfile.Lines
            line = line.Replace(" ", "\").Replace("\\\\", "\").Replace("\\\", "\").Replace("\\", "\")
            ' now you have a (\) between each item instead of spaces
            date1.Text = line.Substring(0, line.IndexOf("\"))
            line = line.Replace(date1.Text & "\", "")
            time1.Text = line.Substring(0, line.IndexOf("\"))
            line = line.Replace(time1.Text & "\", "")
            s1.Text = line.Substring(0, line.IndexOf("\"))
            line = line.Replace(s1.Text & "\", "")
            s2.Text = line.Substring(0, line.IndexOf("\"))
            line = line.Replace(s2.Text & "\", "")
            Empid.Text = line.Substring(0, line.IndexOf("\"))
            line = line.Replace(Empid.Text & "\", "")
            InOut.Text = line.Substring(0, line.Length).Replace("\", "")
            line = line.Replace(InOut.Text, "")

            Dim insertCommands As New OleDb.OleDbCommand("INSERT INTO import ([Date], [Time], [S1], [s2], [Empid], [in\out]) VALUES ('" & date1.Text & "','" & time1.Text & "','" & s1.Text & "','" & s2.Text & "','" & Empid.Text & "','" & InOut.Text & "')", Connection)
            Try
                Connection.Open()
                insertCommands.ExecuteNonQuery()
            Catch ex As Exception
                MessageBox.Show(ex.Message & " - " & ex.Source)
            Finally
                Connection.Close()

            End Try

        Next

        MsgBox("Done")

    End Sub
End Class

Proof :

elie iza …

hi, your code works perfectly
-check your typing
-account exist
-correct password
-gmail account

Public Class Form1
    Dim dgv As New DataGridView
    Dim txt1 As New TextBox
    Dim txt2 As New TextBox
    Dim label1 As New Label
    Dim label2 As New Label
    Dim add As New Button
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Size = New Size(563, 224)
        Me.Controls.Add(dgv)
        Me.Controls.Add(txt1)
        Me.Controls.Add(txt2)
        Me.Controls.Add(label1)
        Me.Controls.Add(label2)
        Me.Controls.Add(add)
        label1.Text = "Values 1"
        label2.Text = "Values 2"
        label1.Location = New Point(4, 105)
        label2.Location = New Point(4, 131)
        txt1.Location = New Point(57, 102)
        txt2.Location = New Point(57, 128)
        add.Location = New Point(57, 154)
        add.Text = "Add"
        txt1.Text = "0"
        txt2.Text = "0"
        dgv.Size = New Size(547, 92)
        dgv.Columns.Add("Vendas1", "Vendas1")
        dgv.Rows.Add("0")
        dgv.Rows.Add("0")
        AddHandler add.Click, AddressOf addvalues
    End Sub

    Private Sub addvalues(ByVal sender As System.Object, ByVal e As System.EventArgs)
        dgv.Columns.Add("Vendas" & dgv.Columns.Count.ToString + 1, "Vendas" & dgv.Columns.Count.ToString + 1)
        dgv.Rows(0).Cells("Vendas" & dgv.Columns.Count.ToString).Value = txt1.Text
        dgv.Rows(1).Cells("Vendas" & dgv.Columns.Count.ToString).Value = txt2.Text
    End Sub
End Class

        Dim con = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Resumen Guia\Base.mdb")
        Dim dataadapter1 As New System.Data.OleDb.OleDbDataAdapter()
        dataadapter1 = New System.Data.OleDb.OleDbDataAdapter("select * from Tabla ", con)
        Dim DtSet As System.Data.DataSet
        DtSet = New System.Data.DataSet
        dataadapter1.Fill(DtSet)
        ComboBox1.DataSource = Nothing
        ComboBox1.DataSource = DtSet.Tables(0)
        con.Close()

for your application to work on both operating system (32bit and 64bit) choose X86 platform
Build - Configuration Manager - Active Solution platform - new - new platform select X86

Public Class Form1
    Dim Seconds As String
    Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CloseButton.MouseDown
        Seconds = 0
        CloseLongTimer.Interval = 1000
        CloseLongTimer.Start()
    End Sub
    Private Sub CloseLongTimer_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles CloseLongTimer.Tick
        Seconds += 1
    End Sub
    Private Sub CloseButton_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CloseButton.MouseUp
        CloseLongTimer.Stop()
        If Seconds < 5 Then
            Me.Close()
        Else
            System.Environment.Exit(1)
        End If
    End Sub
End Class