小编bmg*_*985的帖子

使用vba旋转保存的图像

我目前在excel中有一个userform,上面显示了图像(保存在临时文件夹"C:\ Temp\Photos"中)

我想要做的是有按钮(90,180,270)旋转位于"C:\ Temp\Photos"的图像.认为它可能是一个FileSystemObject,但还不知道他们还不知道如何做到这一点.

谢谢

编辑:按要求添加了一些代码.根据在组合框中选择的值插入图片.任何更改都会引用pic1-pic5(任何时候只有5个图片).

Private Sub ComboBox1_Change()
pic1 = "C:\Temp\Photos\" & Me.ComboBox1.Text & "\1.jpg"
pic2 = "C:\Temp\Photos\" & Me.ComboBox1.Text & "\2.jpg"
pic3 = "C:\Temp\Photos\" & Me.ComboBox1.Text & "\3.jpg"
pic4 = "C:\Temp\Photos\" & Me.ComboBox1.Text & "\4.jpg"
pic5 = "C:\Temp\Photos\" & Me.ComboBox1.Text & "\5.jpg"
If Dir(pic1) <> vbNullString Then
Me.Image1.Picture = LoadPicture(pic1)
Else
Me.Image1.Picture = LoadPicture("")
End If
If Dir(pic2) <> vbNullString Then
Me.Image2.Picture = LoadPicture(pic2)
Else
Me.Image2.Picture = LoadPicture("")
End If
If Dir(pic3) <> vbNullString Then
Me.Image3.Picture = LoadPicture(pic3) …
Run Code Online (Sandbox Code Playgroud)

excel vba excel-vba

2
推荐指数
1
解决办法
9771
查看次数

来自DateTimePicker的SQL字符串中的日期

我试图将VB.Net中的Windows窗体中的DateTimePicker中的日期插入到SQL字符串中,以便将其识别为日期时间(字段本身在SQL Server中设置为日期时间).

我已经尝试了一些方法(Convert在SQL级别,Format在VB.Net级别)并且现在使用存储为的变量DateTime,但是我仍然无法使其工作.我的代码片段如下:

Using sqlConn = New SqlConnection(My.Settings.sqlString)
        sqlConn.Open()
        Dim dte As DateTime = Convert.ToDateTime(Me.dateMain.Text)
        Dim cmd As SqlCommand
        cmd = sqlConn.CreateCommand
        cmd.CommandText = "Update Table1 " &
        "SET Person='" & Me.person.Text & "'," &
        "Date='" & dte & "' " &
        "WHERE (Code = '" & PCode & "')"
        cmd.ExecuteNonQuery()
        cmd = Nothing
End Using
Run Code Online (Sandbox Code Playgroud)

编辑:以下错误(或轻微变化)是我几乎所有尝试过的尝试.在下面提交参数化答案后收到此错误

System.Data.dll中发生了类型为"System.Data.SqlClient.SqlException"的未处理异常

附加信息:将char数据类型转换为日期时间数据类型会导致日期时间值超出范围.

所以看起来即便如此,它还没有将它识别为SQL中的日期时间.我想我需要Convert在SQL字符串中再试一次,但我对函数的了解是有限的.任何人都知道如何使用它来实现这一点(如果这是解决方案)?

sql vb.net

2
推荐指数
1
解决办法
1605
查看次数

如何让一行始终显示(使用一个视图)

我有以下(简化)视图:

SELECT        T1.item, T2.text
FROM            T1 LEFT OUTER JOIN
                         T2 ON T1.code = T2.code AND T1.item = T2.item
WHERE        (T1.item = '12345') AND (T1.code = '678') AND (T2.detailID = '99')
Run Code Online (Sandbox Code Playgroud)

T1

?????????????????????????????????
? code  ? item  ? other info... ?
?????????????????????????????????
? code1 ? item1 ? other info... ?
? code2 ? item2 ? other info... ?
?????????????????????????????????
Run Code Online (Sandbox Code Playgroud)

T2

?????????????????????????????????????????????????????
? code  ? item  ? detailID  ? text  ?  other info   ?
?????????????????????????????????????????????????????
? code1 ? item1 ? detailID1 ? …
Run Code Online (Sandbox Code Playgroud)

sql sql-server

2
推荐指数
1
解决办法
57
查看次数

PHP用默认图像替换空白图像

今天早上有一个脑衰退的时刻.我有以下PHP:

$imgset = $result->fields[6];
if ($imgset = '')
{
    $imgset = 'logo';
}
else
{
     $imgset = $result->fields[6];
}
echo '<img id="imgdisp" src="/img/'.$imgset.'.jpg" />';
$imgset = '';
Run Code Online (Sandbox Code Playgroud)

在哪里查看数据库的结果是否为空白,如果是,则应该放入logo.jpg而不是结果.出于某种原因,它只是不想工作,我可能完全失明,但不明白为什么不.我仍然在HTML和文件名"/img/.jpg"中得到空白图片,好像$ imgset仍在传递空白.SQL中的值也不是NULL,它们绝对是在其他地方使用_POST从输入框输入的空白​​条目.

欢呼任何帮助

html php

0
推荐指数
1
解决办法
132
查看次数

标签 统计

sql ×2

excel ×1

excel-vba ×1

html ×1

php ×1

sql-server ×1

vb.net ×1

vba ×1